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INTRODUCTION TO THE COBOL-74 SYSTEM 
AND THE STRUCTURE OF THE MANUAL 



The typical COBOL program follows a fairly simple series of steps from 
the human-readable format in which it is written to the 
machine-readable format in which it is executed. The following flow 
chart shows the basic steps which all programs take. 
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The program first sees the light of day as a source file which is 
either created with a text editor or entered into the system by some 
other means (for example, it could be punched into cards and loaded 
through a card reader). This file is usually given a filename whose 
extension is .CBL, and it is identified in the flow chart by this 
extension. 

The COBOL-74 compiler then translates the source file into a 
relocatable object module. In order to do this, the compiler may 
sometimes copy text from user libraries which contain often-used 
pieces of code. These libraries, identified in the chart by the 
extension of .LIB, are created by the LIBARY utility. The output from 
the compiler, the relocatable object module, is usually given an 
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extension of .REL, and is identified by this extension in the flow 
chart. The compiler can optionally produce a file which contains the 
compilation listing of the source program. This file is identified by 
its extension, .LST. 

At this point the program is given to the system linker, which 
produces the executable version with the extension .EXE. (This manual 
does not contain any information on the system linker. Users of 
TOPS-10 should refer to the LINK Reference Manual and the LOAD command 
in the Operating System Commands Manual for more information about 
LINK. Users of TOPS-20 should refer to the the LINK Reference Manual 
and the LOAD command in the DECSYSTEM-20 user's Guide.) 

The .EXE version of the program runs in conjunction with the 
object-time system, C740TS. Among other things, the object-time 
system handles I/O and calls routines from the COBOL-74 library to be 
used at runtime. The user program is now in a format which can be 
executed, but there is no guarantee that it will produce the correct 
results. Most programs must still be debugged after they compile 
error-free. The COBOL-74 system provides an on-line debugging 
facility called COBDDT to assist the programmmer in finding out what 
the program is really doing. COBDDT runs along with the user program 
and the object-time system, and allows the steps which the program 
executes to be monitored by the programmer. 

Many COBOL programs use indexed files during their execution. These 
files are convenient for many applications. The COBOL-74 system 
provides a program, called ISAM, to create and maintain indexed files. 

There are times when the user program is running and the system 
operator has to shut down the system unexpectedly. Some programs are 
written to be restartable, but many are not. The RERUN utility is 
provided with COBOL-74 to help in this situation. RERUN can save 
enough information to allow the program to be restarted after the 
system is brought back up, even though no provision was made in the 
program for the restart. 

Thus, the COBOL-74 system, in conjunction with the operating system, 
provides complete facilities for the creation and execution of a COBOL 
program. The rules regarding the creation of a COBOL-74 program, and 
the syntax to be used in the program, are described in Part 2, 
COBOL-74 Language Reference Material. The individual units of the 
COBOL-74 system are enumerated below. 

1. The Compiler - 

The compiler copies text from user libraries and translates 

the COBOL-74 program into a relocatable object module. 

Running the COBOL-74 compiler is described in Part 3, Chapter 
6. 

2. The OTS - 

The object-time system runs the COBOL-74 program and allows 
the program to use such facilities as simultaneous update and 
Report Writer. Information on the file formats which the OTS 
accepts may be found in Part 3, Chapter 8. The simul-taneous 
update facility is described in Part 3, Chapter 9, and Report 
Writer in Part 3, Chapter 10. Subprograms, segmentation and 
overlaying are covered in Part 3, Chapter 11. Chapter 12 of 
Part 3 contains information on calling non-COBOL subprograms. 
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3. The Utilities - 

The COBOL-74 utilities - LIBARY, COBDDT, RERUN and ISAM - are 
described in Part 3, Chapter 7. Information on the use of 
COBDDT in improving the performance of COBOL-74 programs may 
be found in Part 3, Chapter 13. 

Part 4 of this manual contains appended material which may be of 
interest to some users of COBOL-74. Appendix A presents a list of 
differences between DIGITAL'S COBOL-68 and DIGITAL'S COBOL-74. 
Appendix B is the list of COBOL-74 reserved words. Appendix C 
provides ASCII, SIXBIT, and EBCDIC collating sequences, along with 
conversion charts for these three codes. An alternate to the usual 
numeric test, which may be elected at the time of installation of 
COBOL-74, is described in Appendix D. Finally, Appendix E contains a 
short description of the process of defining a logical name for 
TOPS-20 users of the COBOL-74 utilities. 
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CHAPTER 1 
INTRODUCTION TO COBOL-74 LANGUAGE 



This chapter describes the symbols, special terms, language elements, 
and source program formats acceptable to COBOL-74. The source 
language statements are discussed in subsequent chapters. 



NOTE 

In this manual the word COBOL 
refers to COBOL-74. Any 
documentation concerning 
DECtapes can be ignored if your 
system does not have them. 



1.1 SYMBOLS AND TERMS 

The symbols and terms used in the following chapters of this manual 
are necessary to describe the language or are commonly used COBOL 
terms. The single exception to this statement is the term 
BIS-compiler . This term refers to compiler implementations that 
compile COBOL-74 using the Business Instruction Set (BIS) . All users 
of TOPS-20 get BIS code. Users of TOPS-10 who have a KS or KL central 
processing unit get BIS code as the default, but the compiler may be 
installed without the BIS option. TOPS-10 users who have a KI central 
processor will usually not get the BIS option on their compilers. The 
KI processor will not execute the BIS instructions; however, the KI 
will run the compiler which produces BIS code should there be a need 
for it (for more information, see the COBOL-74 Installation 
Procedures.) You can tell if your compiler is producing BIS code by 
checking a listing of a compiled program. If your compiler is 
producing the BIS instructions, the letters BIS will follow the 
version and edit numbers on top of the page. 



1.1.1 Symbols 

The symbology used in this manual to illustrate the various COBOL 

statement formats is essentially the same as that used in other COBOL 

language manuals. Its basis is the system of symbols used in the 
American National Standard and developed by CODASYL. 
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1.1.1.1 Underline - The underline is used to denote reserved key 
words. Key words (uppercase underlined words) are required when you 
use a function of which they are a part. The absence of an underline 
in an uppercase word denotes that the word is optional; you may use 
or omit the word at your discretion. 



NOTE 



Uppercase words, whether underlined 
not, must be spelled correctly. 



or 



1.1.1.2 Brackets and Braces - When brackets, [], enclose a portion of 
a general format, they denote an optional portion that may be included 
or omitted as needed. When braces, {}, enclose a portion of a general 
format, you must select one of the options within the braces. 
Consider the following figure. 



MEMORY SIZE integer 



WORDS ) 
CHARACTERS / 
MODULES ) 



The brackets indicate that the entire clause is optional. The braces 
indicate that a choice of one of the words vertically stacked within 
the braces must be specified. 



Wherever a choice is required, 
stacked either within brackets 
example. 



the possibilities are vertically 
or braces. Consider the following 



/SYNCHRONIZED 
(SYNC 



i[ 



LEFT ~] 
RIGHT J 



The outside brackets indicate that the entire clause is optional. The 
braces indicate that if the clause is used, a choice of a word 
vertically stacked within the braces must be made. . The inside 
brackets indicate that you may optionally select a vertically stacked 
word within. 



NOTE 

When possibilities are vertically 
stacked between brackets, you have the 
option of overriding a default 
condition. The default condition is 
described in the general rules for the 
clause. 



1.1.1.3 The Ellipsis - The ellipsis (...) indicates that you may 
repeat the item preceding it. The preceding item is usually enclosed 
either by brackets or braces to remove any ambiguity as to which item 
may be repeated. Consider the following example. 

[SAME [RECORD] AREA FOR file-name-1 [f ile-name-2] ...] ... 

The final ellipsis indicates that the entire clause, if used, may be 
repeated. The initial ellipsis indicates that the item file-name-2 
may also be repeated within the clause. 
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1.1.2 COBOL Terms 



The terms block, record, and item have special meanings when 
relation to a COBOL program. 



used in 



Term 



Meaning 



Block Signifies a logical grouping of records. This term 
commonly refers to a logical block of records on some 
storage medium. 



NOTE 

The term "block" as defined here does not refer 
to a "disk block", which is 128 words of 
storage space on a disk. 



Record Signifies a logical unit of information. In relation 
to a data file, a record is the largest unit of logical 
information that can be accessed and processed at a 
time. Records can be subdivided into fields or items. 

Item Signifies a logical field or group of fields within a 
record. A group item is one that is further broken 
down into subitems (for example, a group item called 
TAX might be broken down into subitems called FED-TAX 
and STATE-TAX) . Subitems can be further broken down 
into other subitems. An item that has no subitems is 
called an elementary item. 



1.2 ELEMENTS OF COBOL LANGUAGE 



1,2.1 Program Structure 

A COBOL program consists of four divisions. Each division is made up 
of source language statements. Some statements are required in every 
program; most of them are optional. 



Division 



Meaning 



IDENTIFICATION DIVISION 
ENVIRONMENT DIVISION 



Identifies the source program. 

Describes the computer on which the 
source program is to be compiled, 
the computer on which the object 
program is to run, and certain 
relationships between program 
elements and hardware devices. 



DATA DIVISION 



PROCEDURE DIVISION 



Describes the data to be processed 
by the object program. 

Describes the actions to 
performed on the data. 



be 
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NOTE 

The COBOL-74 compiler will recognize 
source line numbers up to and including 
8184. If your program (including 
library routines) exceeds this maximum, 
the compiler will start numbering again 
at 0001. Since this causes two or more 
lines to have a single line number, you 
should exercise caution when debugging 
your program. The cross-reference 
listing may be confusing. However, the 
compiler will generate correct code 
regardless of how many lines are in the 
program or how they are numbered in the 
cross-reference listing. 



1.2.2 COBOL-74 Character Set 

Within a source program statement, all ASCII characters are valid 
except: 

1. null, delete, and carriage return (which are ignored) 

2. line feed, vertical tab, form feed, and the printer control 
characters (20(8) through 24(8)), which mark the end of a 
source line 

3. CTRL/Z (32(8)), which marks the end-of-file 

The compiler translates the lowercase ASCII characters to uppercase 
characters except when they appear in nonnumeric literals. 

Of this character set, 37 characters (the digits through 9, the 26 
letters of the alphabet, and the hyphen) can be used by the programmer 
to form COBOL user-defined words, such as data-names, procedure-names, 
and identifiers. 

The remaining ASCII characters which are acceptable to the COBOL-74 
compiler are listed below. 

Punctuation characters include: 

A (space) " or ' (quotation mark) 

, (comma) ( (left parenthesis) 

; (semicolon) ) (right parenthesis) 

(period) -*| (horizontal tab) 
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Special editing characters include: 

+ (plus sign) * (check protection symbol) 

(minus sign) Z (zero suppression) 

$ (dollar sign) B (blank insertion) 

, (comma) (zero insertion) 

(decimal point) CR (credit) 

/ (slash) DB (debit) 

Special characters used in arithmetic expressions include: 

+ (addition) / (division) 

(subtraction) ** (exponentiation) 

* (multiplication) + (exponentiation) 

Special characters used in conditional (IF) statements include: 

= (equal) > (greater than) < (less than) 

NOTE 

These special characters will not 
necessarily be underlined when they 
appear in formats. For example, an 
underlined minus sign might easily be 
confused with an equal sign. However, 
they are usually required items. You 
may not omit them, unless you are 
specifically told otherwise. 



1.2.3 Words 

A COBOL word is a character string which has not more than 30 
characters and is either a user-defined word or a reserved word. For 
COBOL-74, as for most COBOL compilers, a word may be either 
user-defined or reserved, but not both. 



1.2.3.1 Reserved Words - A reserved word is a COBOL word that is one 
of a specific list that may be used in COBOL source programs as 
specified in the general formats. You cannot use a reserved word as a 
user-defined word; the two types are mutually exclusive. (See 
Appendix B for a complete list of COBOL reserved words) . 
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There are six types of reserved words: 

1. Key words 

A key word is required when the format in which the word 
appears is used in a source program. Within each format, key 
words are uppercase and underlined. Consider the following 
example. 

COMPUTE identifier-1 f ROUNDED 1 [ identifier-2 [ROUNDED]] ... 

=arithmetic-expression [ ON SIZE ERROR imperative-statement] 

In this case, the words COMPUTE, ROUNDED, SIZE, and ERROR are 
key words. 

2. Optional Words 

Within each format, uppercase words that are not underlined 
are optional words included for readability. You may use or 
omit these words indiscriminately. The presence or absence 
of an optional word does not alter the semantics of the COBOL 
program in which it appears. Consider the following example. 

LINAGE IS integer-1 LINES [WITH FOOTING AT integer-2] 

[LINES AT TOP integer-3] 

In this case, the words IS, LINES, WITH, and AT are optional 
words. 

3. Connectives 

There are three types of connectives: 

a. Qualifier connectives that associate a data-name, a 
condition-name, or a text-name with its qualifiers: OF, 
IN (See Section 4.7, Qualification.) An example of this 
type is 

COPY ACTREC OF COBLIB. 

b. Series connectives that link two or more consecutive 
operands? separator comma, separator semicolon. An 
example is 

GO TO PARTI, PART2, PART3 DEPENDING ON COUNTERl. 

c. Logical connectives that are used in the formation of the 
following conditions: AND, OR, AND NOT, OR NOT. An 
example is 

IF HOURS-WORKED IS GREATER THAN ZERO AND NOT 
DEDUCTION-TIME PERFORM PRINT-CHECK. 

4. Figurative Constants 

A few specific constant values are used frequently and in 
enough different ways to make it useful to have names for 
them. The names given to them are called Figurative 
Constants. These names are reserved words and are listed 
below. 
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The values represented by figurative constants are generated 
by the compiler and referenced through the use of the 
reserved words given below. These words must not be bounded 
by quotation marks when used as figurative constants. The 
singular and plural forms of figurative constants are 
equivalent and can be used interchangeably to increase 
readability. 



The values which the compiler generates for you, 
reserved words that name them, are as follows: 



and the 



ZERO 

ZEROS 

ZEROES 



Represent the value 0, or one or more of the 
character 0, depending on context. 



SPACE 
SPACES 

HIGH-VALUE 
HIGH-VALUES 



Represent one or more of the character 
"space". 

Represent one or more of the character that 
has the highest ordinal position in the 
character set's collating sequence (in ASCII 
code, this is octal 177). 



LOW-VALUE Represent one or more of the character that 
LOW-VALUES has the lowest ordinal position in the 

character set's collating sequence (in ASCII 

this is octal 000) . 



QUOTE 
QUOTES 

ALL literal 



Represent one or more occurrences of the 
quote character, usually '"' (double quote). 

Represents one or more repetitions of the 
string of characters that compose the literal. 
The literal must be either an alphanumeric 
literal or a figurative constant other than 
ALL. The ALL literal cannot be associated with 
a numeric or numeric edited item. When a 
figurative constant is used, the word ALL is 
redundant and is optional. You can use it for 
readability if you wish. 

Frequently a figurative constant represents a string of 
characters whose length is not explicitly stated. When this 
happens, the compiler determines the length of the string 
from context. The figurative constant can be associated with 
another data item by the context, as in the following 
statements : 

MOVE SPACES TO WORK-RECORD 

IF AMOUNT-OWED EQUALS ZERO PERFORM CLOSE-ACCOUNT 

Alternatively, the figurative constant can stand by itself 
with no relation to any data item, as in: 

DISPLAY "BALANCE IS" ZERO 

STRING DAY-CODE, SPACE, "-", SPACE, MONTH-CODE 
DELIMITED BY SIZE INTO DSPLY-DATE 
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In cases where the figurative constant is associated with a 
data item, the compiler assumes that the string of characters 
represented by the figurative constant has the same number of 
characters as the associated data-item. In the case of (the 
figurative constant) ALL literal, the literal is repeated 
from left to right and truncated on the right, if necessary. 
Thus, if WORK-RECORD in the above example contains 128 
characters, the figurative constant SPACES represents a 
string of 128 spaces. If AMOUNT-OWED is an eight-character 
numeric field with two decimal places, ZERO represents the 
value 000000.00. In the following example: 

MOVE ALL "ABC TO HOLD-AREA 

If HOLD-AREA is a ten-character alphanumeric field, its 
contents after the MOVE is: 

ABCABCABCA 

If you associate a JUSTIFIED clause with the data item, the 
character repetition and truncation takes place before any 
justification. 

When the figurative constant is not associated with a data 
item, as in the second set of examples above, the length of 
the character string is the length of the literal, or one 
occurrence of the literal in the case of ALL literal. This 
is true even if you use the plural form instead of the 
singular. That is, all of the following statements cause the 
same display: 

DISPLAY ZERO. 
DISPLAY ZEROS. 
DISPLAY ALL ZEROS. 

In each case, one zero is displayed. 

A figurative constant can be used whenever a literal appears 
in a format. However, if the literal is restricted to 
numeric characters, the only figurative constants permitted 
are ZERO (ZEROS, ZEROES), LOW-VALUE (LOW-VALUES), and 
HIGH-VALUE (HIGH-VALUES). 

Each reserved word that is used to reference a figurative 
constant value is a distinct character string with the 
exception of the construction ALL literal, which is composed 
of two distinct character strings. 

5. Special Registers 

COBOL-74 recognizes four reserved words as special registers: 
DAY, DATE, TIME, and LINAGE-COUNTER. All special registers 
have implied data descriptions of unsigned elementary 
integers. The lengths of DAY, DATE, and TIME are fixed; the 
length of LINAGE-COUNTER depends upon the file description 
statement that generates the register. 

DAY is five digits long. Its value represents the number of 
the current day of the year. Its format is: 

YYDDD 

where YY is the year of the century, and 

DDD is the number of the day of the year. 
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DATE is six digits long. Its value represents the current 
date. Its format is: 

YYMMDD 

where YY is the year of the century, 

MM is the number of the month, and 

DD is the number of the day. 

TIME is eight digits long. Its value represents the current 
elapsed time since midnight on a twenty-four-hour basis. Its 
format is: 

HHMMSShh 

where HH is the hours, 

MM is the minutes, 

SS is the seconds, and 

hh is the l/100ths of a second. 

DAY, DATE, and TIME may be accessed by ACCEPT statements in 
the Procedure Division. See Section 5.9.1 for the correct 
format to use with the ACCEPT verb. 

The LINAGE-COUNTER special register is generated whenever the 
file description of a sequential file includes the LINAGE 
clause. The contents of a LINAGE-COUNTER represent the 
current line number within the current page of output. The 
contents of a LINAGE-COUNTER are updated automatically by 
WRITE statements referring to the associated sequential file. 
The LINAGE clause and LINAGE-COUNTER are fully explained in 
Section 4.9.31. 

6. Special-Character Words 

The arithmetic operators +, -, *, /, **, ~ , and the relation 
characters <,>, and = are special-character reserved words. 



1.2.3.2 User-Defined Words - A user-defined word is a COBOL word 
which is supplied by the user to satisfy the format of a clause or 
statement. The characters which may be used to form user-defined 
words are the letters of the alphabet, the digits through 9, and the 
hyphen. The hyphen may not be used as the first or last character in 
the user-defined word. 

There are 17 types of user-defined words: 

1. alphabet-name 

2. cd-name 

3. condition-name 

4. data-name 



1-9 



INTRODUCTION TO COBOL-74 LANGUAGE 

5. file-name 

6. index-name 

7. level-number 

8. library-name 

9. mnemonic-name 

10. paragraph-name 

11. program-name 

12. record-name 

13. report-name 

14. routine-name 

15. section-name 

16. segment-number 

17. text-name 

Each of these user-defined word types is described in the Glossary 
which appears at the end of this manual. 



1.2.4 Literals 

A literal is a character string whose value is determined by the 
ordered set of characters of which it is composed. You can also use a 
figurative constant as a literal. There are two types of literals: 
numeric and alphanumeric. 



1.2.4.1 Numeric Literal - A numeric literal is a character string of 
from 1 to 20 characters selected from the digits through 9, the plus 
sign, the minus sign, and the decimal point. The rules for the 
formation of numeric literals are as follows: 

1. A literal must contain at least 1 digit and no more than 18 
digits. 

2. A literal must not contain more than one sign character. If 
a sign is used, it must appear as the leftmost character of 
the literal. If the literal is unsigned, it is considered 
positive. 

3. A literal must not contain more than one decimal point. The 
decimal point is treated as an assumed decimal point, and may 
appear anywhere within the literal except as the rightmost 
character. If the literal contains no decimal point, the 
literal is considered an integer. 

NOTE 

The word integer, appearing . in a general format, 
represents a nonnegative numeric literal with no 
decimal point. 
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If a literal conforms to the rules for the formation of 
numeric literals but is enclosed in quotation marks, it is 
considered an alphanumeric literal and is treated as such by 
the compiler. 

4. The value of a numeric literal is the algebraic quantity 
represented by the characters in the numeric literal. Every 
numeric literal is category numeric. (See Section 4.10.16, 
The PICTURE Clause.) The size of a numeric literal is equal 
to the number of digits specified by the user, including 
leading zeros, if any. 



1.2.4.2 Alphanumeric Literals - An alphanumeric literal is a 
character string representing from 1 to 120 characters, delimited on 
both ends by quotation marks and consisting of any allowable character 
in the computer's character set. An opening quotation mark must be 
immediately preceded by a space or left parenthesis. A closing 
quotation mark must be immediately followed by one of the separators 
(space, comma, semicolon, or right parenthesis) or by the terminator, 
period. 

NOTE 

You may use either the single quote 
character (') or the double quote ("). 
Whichever one you use, you must be sure 
to pair them correctly - do not try to 
pair a single quote with a double quote 
or vice versa. 

To represent one quotation-mark character within an alphanumeric 
literal, two contiguous quotation marks must be used. The value of an 
alphanumeric literal in the object program is the string of characters 
itself, except that: 

1. The delimiting quotation marks are excluded, and 

2. Each embedded pair of contiguous quotation marks represents a 
single quotation mark character. 

All other punctuation characters are part of the value of the 
alphanumeric literal, not separators. All alphanumeric literals are 
category alphanumeric. (See Section 4.9.18, The PICTURE Clause.) 



1.2.5 Separators 

A separator is a string of one or more punctuation characters. The 
rules for forming separators are: 

1. Space 

a. Anywhere a space is used as a separator, more than one 
space may be used. 

b. A space may immediately precede all separators except the 
closing quotation mark. Here the space is considered 
part of an alphanumeric literal, hot a separator. 
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c. A space may immediately follow any separator except the 
open quotation mark. In this case, a following space is 
considered part of an alphanumeric literal, not a 
separator. 

2. Comma and Semicolon 

The punctuation characters, the comma and semicolon, are 
separators. You may insert these separators only where 
explicitly permitted by the general formats, by format 
punctuation rules, by statement and sentence definitions, or 
by source program format rules. 

3. Right Parenthesis and Left Parenthesis 

Right parenthesis and left parenthesis are separators only 
when used in balanced pairs to delimit subscripts or indexes. 

4. Quotation Marks 

Quotation marks may be used only in balanced pairs to delimit 
alphanumeric literals or in adjacent pairs to pass one 
quotation mark in an alphanumeric literal. (See note 
concerning quotation marks in Section 1.2.4.2, Alphanumeric 
Literals. ) 

5. Horizontal Tab 

The horizontal tab character is governed by the same rules 
that govern the space character. It is normally used to 
vertically align statements or clauses on successive lines of 
the source program listing. The compiler, upon encountering 
a tab character, generates one or more space characters 
consistent with the tab character position in the source 
line. 

6. Pseudo-text Delimiter 

Pseudo-text delimiters set off textual matter in the COPY 
statement from the rest of the sentence. Each delimiter 
consists of two contiguous equal signs (==) . The opening 
pseudo-text delimiter must be immediately preceded by a 
space; the closing delimiter must be immediately followed by 
one of the separators space, comma, semicolon, or period. 
These delimiters may appear only in balanced pairs delimiting 
pseudo-text. 



NOTE 

There are certain rules for writing 
source programs which supersede these 
general rules. For a discussion of 
source program formats see Section 1.3. 
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1.3 SOURCE PROGRAM FORMAT 

There are two basic types of source program formats in which you may 
write your COBOL-74 programs. These two types arise from the methods 
of entering the source program into the system. The first is 
conventional card-type format. You should use this type if you wish 
your COBOL-74 program to be compatible with other compilers. The 
second is the standard DEC format which is designed for easy use on 
terminals. This format is the one to use for those programs which are 
to be entered into the system through a terminal using a text editor. 
The compiler will assume that the source program is written in 
terminal-type format unless the /S switch is included in the command 
string to the compiler (refer to Appendix C) . 

Certain margins which begin the areas used for writing COBOL-74 
statements are standard for source programs. The standard names for 
these margins are Margins L, A, B, and R. As you might expect, 
Margins L and R are the left and right margins of the line, 
respectively. Margins A and B mark the beginning of two areas, Areas 
A and B. Area A is where all division-names, section-names, 
paragraph-names, and FD (File Description) entries must begin. All 
other entries must begin in Area B. Although the actual character 
position which marks each of these margins changes from format to 
format, the function of each area is the same; in other words, you 
must begin your division-names at Margin A no matter what format you 
use, no matter where Margin A happens to be placed in that format. 

NOTE 

These rules agree with the 1974 ANSI 
standard for source program formats. 
Programs written according to the rules 
will be more readable and transportable. 
The COBOL-74 compiler, however, does not 
do complete syntax checking to determine 
if you have followed all rules, and will 
not always issue an error message if you 
violate them. Thus, you are encouraged 
to conform to the rules to avoid 
unpredictable results. 

Some of the rules for using source program formats remain constant 
regardless of which format you use. These rules are given below. 
Refer to them for all types of formats. 

1. Continuation Area - If you wish to split a word or literal 
across two lines, you must use this area to indicate your 
wish to the compiler. To do this, write the first line up to 
the point at which you wish to split it, then place a hyphen 
(-) in the continuation area of the next line and continue 
the second line beginning at or after Margin A. If you are 
splitting a word or numeric literal you may leave spaces 
between the last character in the first line and the end of 
the source statement area. (This area ends at the 
identification area, when it exists; otherwise it ends at 
Margin R.) However, if you wish to split an alphanumeric 
literal you must not leave spaces after the last character of 
the first line, since the compiler will assume that those 
spaces are part of the literal. If you wish only to continue 
a sentence on the next line without splitting any words, you 
may simply write the first line, then continue on the next 
line; do not use the continuation column for this purpose. 
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2. Comment Lines - You may insert comment lines into your 
COBOL-74 program by using the continuation area. If the 
compiler finds an asterisk (*) in that area it will list the 
remainder of the line as a comment on the next line. If 
there is a slash (/) instead of an asterisk a new page will 
be started and the comment will be listed at the top of the 
new page. 



NOTE 

All formats may be used with any input 
medium. The names of the types of 
formats refer to their origins, not 
their uses. 



1.3.1 Card-type Format 

You should use card-type format if you wish to compile your program 
under an operating system other than TOPS-10 or TOPS-20. Your program 
may be punched on an off-line card punch or created with an on-line 
text editor. This format uses card sequence numbers which must be 
created by the user. The layout of a line in this format is shown in 
Figure 1-1. The numbers refer to card columns or character positions. 



CARD-TYPE FORMAT 

1 6 7 8 




MR-S-018-79 



Figure 1-1 (a) Card-type Format 

In this format, Margin L is to the left of position 1 and Margin R is 
to the right of position 80. Margin A is between positions 7 and 8 
and begins the area labeled A in the figure. Margin B is between 
positions 11 and 12 and begins the area labeled B. 

The following rules pertain to the use of this source format: 



Line Numbers - These are placed in area L (positions 1 
through 6) by the user who creates the file on a terminal or 
a card punch. 

Debug Lines - You may insert debug lines into your program by 



putting a 



in the continuation area (column 7) . The 



compiler will recognize it and print it on the source listing 
with the spacing similar to a comment line. 
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In this format, Margin L is to the left of position 1 and Margin R is 
to the right of position 80. Margin A is between positions 7 and 8 
and begins the area labeled A in the figure. Margin B is between 
positions 11 and 12 and begins the area labeled B. 

The following rules pertain to the use of this source format: 

1. Line Numbers - These are placed in area L (positions 1 
through 6) by you when you create the file on a terminal or a 
card punch. 

2. Continuation Area - If you wish to use the continuation area, 
type one of the following characters as the first character 
of the continued line: 

• Hyphen (-) - Specifies that this is a continuation of the 
previous line. 

• Asterisk (*) - Specifies that the line is a comment. The 
compiler ignores the line. 

• Slash (/) - Specifies a page change in the listing file. 
The page change is numbered as a sub-page and is 
incremented by 1. 

3. Debug Lines - You can insert debug lines into your program by 
putting a "D n in the continuation area (column 7). The 
compiler recognizes it and prints it on the source listing 
with the spacing similar to a comment line. However, with 
the terminal-type format (Section 1.3.2), it is not possible 
to determine if the "D" is in the continuation area or in 
column 7. Therefore, the "\D" can be used instead. 

4. Identification Area - This area is marked I in the figure 
(positions 73 through 80) . These eight character positions 
can hold identifying information that can be composed of any 
eight characters. This information is printed on the source 
listing, and can be used to identify the card deck (if the 
source code is in fact on cards) . 

NOTE 

The card sequence numbers are not the same as the line 

numbers created by a line editor. The numbers 

supplied by an editor are not acceptable to COBOL-74 

when you specify card-type format. 

The examples in Figure 1-1 (b) illustrate these rules. The first two 
lines are simple statements, with a line number in area L, COBOL-74 
statements in areas A and B, and the identification area containing 
the name of the program. The third line shows how the continuation 
column is used to split a word across two lines. Note that the word 
can be written right up to the end of area B. 



1.3.2 Terminal-Type Format 

If you are writing your program using a text editor and a terminal to 
input the source code, terminal-type format is your best choice. 
There are two types of terminal-oriented formats, one with line 
numbers and one without. Layouts and examples of each type are shown 
in the figures which follow. 
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1.3.2.1 With Line Numbers - This format is suitable if you use a 
line-oriented editor such as EDIT or SOS. The format is shown in 
Figure 1-2 (a) . format is shown in Figure 1-2 (a). 



TERMINAL-TYPE FORMAT 
1 6 7 I 



WITH LINE NUMBERS 
12 



V A 



122 



-f A 



MR-S-966-81 



Figure 1-2 (a) : Terminal-Type Format with Line Numbers 



In this format, margin L is to the left of position 1 and margin R is 
to the right of position 122. Margin A is between positions 7 and 8 
and begins the area labeled A. Margin B is between positions 11 and 
12 and begins the area labeled B. Therefore, areas A and B can 
contain a maximum of 114 characters. 

The following rules pertain to the use of this source format: 

1. Line Numbers - These are placed in area L (positions 1 
through 5) either by the line editor or by you. If you are 
using an editor which supplies line numbers you must not add 
numbers yourself - one set is enough. 

2. Position 6 - This position (marked Z in the figure) remains 
blank. The editor can insert a tab here for purposes of 
making your text more readable; if so, the compiler reads the 
tab as a space. 

3. Continuation Area - If you wish to use the continuation area, 
type one of the following characters as the first character 
of the continued line: 



• Hyphen (-) - Specifies that this a 
previous line. 



continuation of the 



• Asterisk (*) - Specifies that the line is a comment. The 
compiler ignores the line. 

• Slash (/) - Specifies a page change in the listing file. 
The page change is numbered as a sub-page and is 
incremented by 1. 

However, if you do not wish to use the continuation area, you 
can ignore it altogether - you do not need to type a space at 
the beginning of the line. If you do type a space as the 
first character of a line, the compiler assumes that you 
meant the space to be part of the line. 

4. Debug Lines - Debug lines can be inserted in your program 
with this format if you type "\D" (backslash D) as the first 
two characters on the line. If you use n D w as in card-type 
format, the compiler reads the "D" as the first character of 
a word beginning in area A. 

The examples in figure 1-2 (b) illustrate the use of this format. The 
first two lines are simple COBOL-74 statements with the five-character 
line number in area L and areas Z and C blank. The third line shows 
how a word is split across two lines. Note that you can leave spaces 
between the last letter of the word and margin R without confusing the 
compiler. 
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1.3.2.2 Without Line Numbers - If you decide to use a terminal to 
enter your program but your editor (such as TECO or TV) does not 
supply line numbers (or you requested that the editor remove them when 
you finished editing), this is the simplest format to use. The format 
is shown in Figure 1-3 (a). 



TERMINAL-TYPE FORMAT - NO LINE NUMBERS 
1 5 



V /- 



-i /- 



122 



Figure 1-3 (a): Terminal-Type Format without Line Numbers 

In this format, margin L is to the left of position 0, if it exists, 
or position 1, if position does not exist. Margin R is to the right 
of position 122. Margin A is to the left of position 1 and begins the 
area labeled A. Margin B is between positions 4 and 5 and begins the 
area labeled B. Therefore, areas A and B can contain a maximum of 114 
characters. 

The following rules pertains to the use of this source format: 

1. Continuation Area - If you wish to use the continuation area, 
type one of the following characters as the first character 
of the continued line: 

• Hyphen (-) - Specifies that this is a continuation of the 
previous line. 

• Asterisk (*) - Specifies that the line is a comment. The 
compiler ignores the line. 

• Slash (/) - Specifies a page change in the listing file. 
The page change is numbered as a sub-page and is 
incremented by 1. 

If the compiler finds one of these characters at the 
beginning of a line it assumes that the line has a position 
- in other words, a continuation area. Otherwise, each line 
starts in position 1 and there is no position 0. 

2. Debug Lines - Debug lines can be inserted into the program. 
To do this type a "\D" (backslash D) as the first two 
characters on the line. 

The examples in Figure 1-3 (b) show this format's simplicity. The 
first two lines are the same simple COBOL-74 sentences as above. Note 
that the paragraph-name starts in the very first character position. 
The third line shows how to tell the compiler that the line you enter 
is a continuation (or a comment) line. The first half of the line is 
entered beginning in the first position of Area B, while the second 
half begins with a hyphen and continues from the second position. 
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1.4.1 The COPY Statement 

Function 

The COPY statement incorporates text from a COBOL library into a COBOL 
source program. (For a complete description of COBOL libraries, see 
the COBOL-74 Usage Material, Part 3 of this manual.) The COPY 
statement may also be used to replace specified text in the source 
text being copied. 



General Format 

COPY text-name 



OF 



77:/ library-name 



REPLACING 



Technical Notes 



==pseudo-text-l : 
i denti f i er- 1 
1 iteral-1 
word-1 



BY 



==pseudo-text-2 : 
identi f i er-2 
literal-2 
word-2 



NOTE 

In the technical notes which follow, the 
term string-1 is used to denote the 
character string which is used in place 
of the following: pseudo-text-1, 
identif ier-1 , literal-1, or word-1. The 
term string-2 is similarly used. 



1. If more than one COBOL library is available during 
compilation, text-name must be qualified by the library-name 
identifying the COBOL library in which the text associated 
with text-name resides. 

Within one COBOL library, each text-name must be unique. 
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2. The COPY statement must be pireceded by a space and terminated 
by the separator period. Thp entire statement, including the 
period, will be removed when: the text is copied from the 
library. 

3. String-1 must not be null, nbr may it consist solely of the 
character space (s), nor may it consist solely of comment 
lines. 

4. String-2 may be null. 

5. Character-strings within sjtring-1 and string-2 may be 
continued. However, both characters of a pseudo-text 
delimiter must be on the sarnie line. 

6. A COPY statement may occur in the source program anywhere a 
character-string or a separator may occur except that a COPY 
statement must not occur within another COPY statement. 

7. The effect of processing a CpPY statement is that the library 
text associated with textl-name is copied into the source 
program, logically replacing the entire COPY statement, 
beginning with the reservbd word COPY and ending with the 
punctuation character period!, inclusive. The compilation of 
a source program containing COPY statements is logically 
equivalent to processing all! COPY statements prior to the 
processing of the resulting [source program. For clarity, use 
the double equal sign (==) a!round string-1 and string-2 to 
designate clearly the strihg that is being replaced and the 
string that is replacing thajt text. See Note 10 for an 
example of the use of the doiuble equal sign. 

8. If the REPLACING phrase is njot specified, the library text is 
copied unchanged. If the REPLACING phrase is specified, the 
library text is copied and elach properly matched occurrence 
of string-1 in the library text is replaced by the 
corresponding string-2. 

9. The comparison operation to determine text replacement occurs 
as follows: 

a. Any separator comma, semicolon, and/or space (s) preceding 
the leftmost library te^t-word is copied into the source 
program. Starting with ;the leftmost library text-word 
and the first stringr-1 that was specified in the 
REPLACING phrase, the entire REPLACING phrase operand 
that precedes the reserved word BY is compared to an 
equivalent number of contiguous library text-words. 

b. String-1 matches the libjrary text if, and only if, the 
ordered sequence of tjext-words that forms string-1 is 
equal, character for character, to the ordered sequence 
of library text-words.' For purposes of matching, each 
occurrence of a separator comma or semicolon in string-1 
or in the library text is considered to be a single space 
except when string-1 consists solely of either a 
separator comma or : semicolon, in which case it 
participates in the match as a text-word. Each sequence 
of one or more space; separators is considered to be a 
single space. 

c. If no match occurs, the comparison is repeated with each 
next successive string-1!, if any, in the REPLACING phrase 
until either a match is found or there is no next 
successive REPLACING operand. 
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b. String-1 matches the library text if, and only if, the 
ordered sequence of text-words that forms string-1 is 
equal, character for character, to the ordered sequence 
of library text-words. For purposes of matching, each 
occurrence of a separator comma or semicolon in string-1 
or in the library text is considered to be a single space 
except when string-1 consists solely of either a 
separator comma or semicolon, in which case it 
participates in the match as a text-word. Each sequence 
of one or more space separators is considered to be a 
single space. 

c. If no match occurs, the comparison is repeated with each 
next successive string-1, if any, in the REPLACING phrase 
until either a match is found or there is no next 
successive REPLACING operand. 

d. When all the REPLACING phrase operands have been compared 
and no match has occurred, the leftmost library text-word 
is copied into the source program. The next successive 
library text-word is then considered as the leftmost 
library text-word, and the comparison cycle starts again 
with the first string-1 specified in the REPLACING 
phrase. 

e. Whenever a match occurs between string-1 and the library 
text, the corresponding string-2 is placed into the 
source program. The library text-word immediately 
following the rightmost text-word that participated in 
the match is then considered as the leftmost library 
text-word. The comparison cycle starts again with the 
first string-1 specified in the REPLACING phrase. 

f. The comparison operation continues until the rightmost 
text-word in the library text has either participated in 
a match or been considered as a leftmost library 
text-word and participated in a complete comparison 
cycle. 

10. When you use the REPLACING phrase, you must replace entire 
data names. You cannot replace parts of data-names. For 
example, to replace REPORT-ACCT-NO with OUTPUT-ACC-NO, you 
must specify: 

REPLACING ==REPORT-ACCT-NO== BY ==OUTPUT-ACCT-NO==. 

Thus, replacing REPORT- by OUTPUT- produces an error message. 

11. For purposes of matching, a comment line that occurs in the 
library text and string-1 is interpreted as a single space. 
Comment lines that appear in string-2 and library text are 
copied into the source program unchanged. 
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12. Debugging lines are permitted within library text and 
string-2. Debugging lines are not permitted within string-1; 
text-words within a debugging line participate in the 
matching rules as if the 'D' did not appear in the indicator 
area. If a COPY statement is specified on a debugging line, 
then the text that is the result of the processing of the 
COPY statement also appears as though it were specified on 
debugging lines with the following exception: comment lines 
in library text appear as comment lines in the resultant 
source program. 

13. The text produced as a result of the complete processing of a 
COPY statement must not contain a COPY statement. 

14. The syntactic correctness of the library text cannot be 
independently determined. The syntactic correctness of the 
entire COBOL source program cannot be determined until all 
COPY statements have been completely processed. 

15. Library text must conform to the rules for COBOL source 
program format. (See Section 1.3.) You can copy text from a 
library without worrying about what format your program is 
in, however. 

16. For purposes of compilation, text-words after replacement are 
placed in the source program according to the rules for 
source program format. 
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THE IDENTIFICATION DIVISION 



The Identification Division is required in every source program. It 
identifies the source program and the output from compilation. In 
addition, it may contain other documentary information such as the 
name of the program's author, the name of the installation, the dates 
on which the program was written and compiled, any special security 
restrictions, and any miscellaneous remarks. 

General Structure 

ID 



IDENTIFICATION ' DIVISI0N ' 



P PROGRAM-ID . program-name .1 
[^ AUTHOR , comment-entry . . 7\ 
^ INSTALLATION . comment-entry . . f] 
[" DATE-WRITTEN . comment-entry . . 71 
Q DATE- COMPILED . comment-entry . . .1 
[" SECURITY . comment-entry . . 7\ 



Technical Notes 

1. The Identification Division must begin with the reserved 
words IDENTIFICATION DIVISION followed by a period and a 
space. Note that in COBOL-74 the reserved word ID may be 
substituted for IDENTIFICATION in the division header. 

2. The PROGRAM-ID paragraph contains the name identifying the 
program. The program-name may have up to six characters, and 
must contain only letters, digits, and the hyphen. It can be 
enclosed in quotation marks. The program-name cannot be a 
reserved word and must be unique. It cannot be the same as a 
section, paragraph, file, data, or subprogram name. This 
paragraph is optional. If it is not present, the name MAIN 
is assigned to the program. 
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The remaining paragraphs are optional and, if used, may 
appear in any combination and in any order. A comment 
paragraph consists of any combination of characters from the 
COBOL character set organized to conform to COBOL sentence 
and paragraph format. All text appears as written on the 
output listing, except the DATE-COMPILED paragraph which will 
be replaced by the current date. Reserved words can be used 
in any comment paragraph. 
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GENERAL FORMAT FOR IDENTIFICATION DIVISION 



ID ( 

IDENTIFICATION ( DIVISION 



[" PROGRAM-ID . program-name.! 

P AUTHOR., comment-entry . . 7\ 

Q INSTALLATION . comment-entry . . 7] 

|~ DATE-WRITTEN . comment-entry . . 7\ 

[" DATE-COMPILED . comment-entry . . .1 

[" SECURITY . comment-entry . . .1 
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CHAPTER 3 
THE ENVIRONMENT DIVISION 



The Environment Division allows you to describe the particular 
computer configurations you wish to use for program compilation and 
execution. In this division you also specify the files and devices 
you will use for input and output. The clauses used to do these 
things are presented on the following pages. 
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CONFIGURATION SECTION 

3.1 ENVIRONMENT DIVISION CLAUSE FORMATS 

3.1.1 CONFIGURATION SECTION 

The Configuration Section allows you to describe the computers used 
for program compilation and execution, and to assign mnemonic-names 
for input/output devices. The Configuration Section consists of the 
section name (CONFIGURATION SECTION.) followed by one or more of the 
following paragraphs: 

SOURCE-COMPUTER. (See Section 3.1.2) 

OBJECT-COMPUTER. (See Section 3.1.3) 

SPECIAL-NAMES. (See Section 3.1.4) 

Technical Notes 

1. This section is optional. 

2. All commas and semicolons are optional. A period must 
terminate the entire entry. 
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SOURCE-COMPUTER 



3.1.2 SOURCE-COMPUTER 

Function 

The SOURCE-COMPUTER paragraph describes the computer on which the 
program is to be compiled. 

General Format 

SOURCE-COMPUTER . computer-name QwiTH DEBUGGING M0DE ~] . 



Technical Notes 

1. This paragraph is optional. 

2. Computer-name must be one of the list DECsystem-10 , 
DECSYSTEM-20, PDP-10, or PDP-inteqer-1 . Integer-1 must be in 
the range 1000 to 1099. 

3. If the WITH DEBUGGING MODE clause is specified, all debugging 
lines are compiled. If it is not specified all debugging 
lines are treated as if they were comment lines. In either 
case all USE FOR DEBUGGING statements are compiled as if they 
were comments. This is because COBDDT accomplishes what is 
otherwise done with debugging statements. 

Examples 

SOURCE-COMPUTER. DECSYSTEM-1055 . 

SOURCE-COMPUTER. DECSYSTEM-20 WITH DEBUGGING MODE. 
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OBJECT-COMPUTER 

3.1.3 OBJECT-COMPUTER 

Function 

The OBJECT-COMPUTER paragraph describes the computer on which the 
program is to be executed. 

General Format 

OBJECT-COMPUTER . computer-name 



f WORDS 
MEMORY SIZE integer { CHARACTERS 

MODULES 



[PROGRAM COLLATING SEQUENCE IS alphabet-name] 
[ SEGMENT-LIMIT IS segment-number] 



DISPLAY IS DISPLAY -{_7 

9 



Technical Notes 

1. This paragraph is optional. 

2. Computer-name must be one of the following: PDP-10, 
PDP-integer-1, DECsystem-10, or DECSYSTEM-20 . Integer-1 must 
be a number in the range 1000 through 1099. The number 
specified is for documentary purposes only and has no direct 
bearing on the object code generated by the compiler. If the 
compiler was installed to take advantage of the KL central 
processing unit's Business Instruction Set (BIS), the 
BIS-code will be generated automatically. (See the COBOL-74 
Installation Procedures.) 

3. The optional MEMORY SIZE clause specifies the maximum memory 
size of SORT'S work area during a SORT operation. If the 
MEMORY SIZE clause is omitted, 262,144 WORDS are assumed. If 
it appears, the following ranges are applicable: 

CHARACTERS Up to 1,572,864 (262,144 words x 6 
characters/word) 

WORDS Up to 262,144 

MODULES Up to 256 (1 module equals 1024 
words) 

COBOL-74 presently ignores the MEMORY SIZE clause. SORT will 
use its default algorithms to determine the amount of memory 
needed to execute a sort. (Refer to the SORT User's Guide 
for more information.) 



Version 12A 
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OBJECT-COMPUTER (Cont.) 



4. The PROGRAM COLLATING SEQUENCE clause specifies a collating 
sequence for a program. When you use the PROGRAM COLLATING 
SEQUENCE clause the collating sequence is the one associated 
with alphabet-name. When you do not use the PROGRAM 
COLLATING SEQUENCE clause the collating sequence is ASCII. 
The program collating sequence determines: 

1. The results of explicit comparisons in 
relation-conditions and in condition-name conditions 

2. The results of implicit comparisons in CONTROL clauses of 
report description entries 

3. The order of records processed by SORT and MERGE 
statements which do not specify another collating 
sequence with the COLLATING SEQUENCE phrase 

4. The values of the figurative constants HIGH-VALUE and 
LOW-VALUE 

(See the alphabet-name IS clause in the SPECIAL-NAMES 
paragraph for information on how to associate a collating 
sequence with alphabet-name.) 

5. If you use the SEGMENT-LIMIT clause, only those segments 
having segment numbers from up to but not including the 
value of integer-3 are treated as resident segments of the 
program. Integer-3 must be a positive integer in the range 1 
to 49. 

If you omit the SEGMENT-LIMIT clause, segments having segment 
numbers from through 49 are considered as resident segments 
of the program (that is, SEGMENT-LIMIT IS 50 is assumed). 
More on segmentation can be found in Sections 5.3 and 11.1. 

6. The DISPLAY clause is optional. If you include it in your 
program, the compiler uses the DISPLAY type you specify as 
the default in determining the recording mode for external 
files and for items described in the Data Division as 
DISPLAY. This allows you to change the default usage inside 
the program without using compiler switches. The effect of 
specifying DISPLAY IS DISPLAY-9 is the same as that of 
including a /X switch in the command string to the compiler. 
However, the /X switch always overrides the DISPLAY clause. 
For example, if you include in your program the following 
statement 

DISPLAY IS DISPLAY-7 

all items described in the Data Division as USAGE IS DISPLAY 
are considered DISPLAY-7 items. 



Example 



OBJECT-COMPUTER. DECSYSTEM-1077 
MEMORY 50000 WORDS 

PROGRAM COLLATING SEQUENCE IS NATIVE 
SEGMENT-LIMIT IS 35 
DISPLAY IS DISPLAY-7. 
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3.1.4 SPECIAL-NAMES 

Function 

The SPECIAL-NAMES paragraph provides a means of assigning mnemonic 
names to input/output devices, code sets, and collating sequences. 
This paragraph can also define the character used as a currency sign, 
and can specify the interchange of decimal point and comma functions 
in the program. 

General Format 

[SPECIAL NAMES. [" CONSOLE IS mnemonic-name- 1] 
[ CHANNEL (m) IS mnemonic-name-2] 

[CHANNEL (n) IS mnemonic-name- 3 ...] 

IS mnemom'c-name-4 [ ON STATUS IS condition-name-lj 

[ OFF STATUS IS condition-name-2] 

ON STATUS IS condition-name-1 
SWITCH(m) / r , 

[ OFF STATUS IS condition-name-2 J 

OFF STATUS IS condition-name-2 » 

[ON. STATUS IS condition-name-1 ] 



alphabet-name IS 



STANDARD- 1 
NATIVE 
ASCII 
EBCDIC 

literal-1 



literal-2 



I THROUGH > 
( THRU f 
ALSO literal-3 [ ALSO literal-4] 



1iteral-5 



Iff*} litera1 - 6 

ALSO literal-7 [ ALSO literal-8] 



[literal-9 IS mnemonic-name-4] 
[CURRENCY SIGN IS literal-io] 
[DECIMAL POINT IS COMMA ] A l 



Technical Notes 

1. This paragraph is optional. 

2. The reserved word CONSOLE refers to your terminal. The 
assigned mnemonic-name can be used with the ACCEPT and 
DISPLAY verbs in the Procedure Division to input data from 
and output data to the terminal. 
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3. The name CHANNEL refers to a channel on the line-printer 
control tape, m and n represent any integer from 1 to 8 and 
refer to any one of the eight channels on the tape. Control 
tape channels can be referred to in the ADVANCING clause of 
the WRITE verb in the Procedure Division to advance the paper 
form to the desired channel position. (Refer to the Hardware 
Reference Manual for a description of printer control 
tapes.) For example, if the entry 

CHANNEL (1) IS TOP-OF-PAGE 

is included in this paragraph, the following procedure 
statement prints the line and then skips to the top of the 
next page. 

IF LINE-COUNT IS GREATER THAN 50 WRITE PRINT-RECORD 
BEFORE ADVANCING TOP-OF-PAGE. 

4. The alphabet-name IS clause associates a user-specified name 
with a sequence of characters that can be used as a character 
code set, a collating sequence, or both. This character 
sequence can be either one of the two sequences provided by 
the compiler or a sequence specified by you. 

A character code set is specified by referencing 
alphabet-name in the CODE-SET clause of a file description. 
When defining a character code set, the alphabet-name IS 
clause is restricted to STANDARD-1, NATIVE, ASCII, or EBCDIC. 
A collating sequence is specified by referencing 
alphabet-name either in the PROGRAM COLLATING SEQUENCE clause 
of the OBJECT-COMPUTER paragraph or in the COLLATING SEQUENCE 
phrase of a SORT or MERGE statement. 

When STANDARD-1 or ASCII appears in an alphabet-name IS 
clause, the character code set and collating sequence 
specified is ASCII. When EBCDIC appears in an alphabet-name 
IS clause, the character code set and collating sequence 
specified is EBCDIC. 

When NATIVE appears, the character code set is ASCII. 
However, if the DISPLAY mode specified is DISPLAY-9, the 
character code set is EBCDIC. 

When a literal phrase appears in an alphabet-name IS clause, 
the literals define an ascending collating sequence in the 
order of their appearance in the phrase. Numeric literals 
represent the ordinal number of the character within the 
ASCII character set and must be in the range from 1 through 
128. Nonnumeric literals in an alphabet-name IS clause 
represent themselves. The ordinal number of an ASCII 
character is 1 greater than its ASCII value. If the literal 
contains multiple characters , they are assigned successive 
ascending positions within the collating sequence, starting 
with the leftmost character. Characters whose positions are 
not explicitly defined by the literal phrase are assigned 
positions higher than the specified characters and in their 
normal ASCII sequence. 
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When you specify the THROUGH phrase, the set of contiguous 
ASCII characters beginning with the character specified by 
literal-1 and ending with the character specified by 
literal-2 are assigned successive ascending positions in the 
collating sequence. The characters specified by a THROUGH 
phrase can be in either ascending or descending order. 

When you specify the ALSO phrase, the characters specified by 
literal-1, literal-3, literal-4, ..., are all assigned to the 
same position in the collating sequence. 

The character that has the highest ordinal position in the 
program collating sequence is associated with the figurative 
constant HIGH-VALUE for the character code set that you 
specify. For example, in SIXBIT, the underscore (_) is 
equivalent to HIGH-VALUES. If more than one character has 
the highest position in the program collating sequence, the 
last character specified is associated with the figurative 
constant HIGH-VALUE. 

The character that has the lowest ordinal position in the 
program collating sequence specified is associated with the 
figurative constant LOW-VALUE for the character code set that 
you specify. For example, in SIXBIT, the space is equivalent 
to LOW-VALUES. If more than one character has the lowest 
position in the program collating sequence, the first 
character specified is associated with the figurative 
constant LOW-VALUE. 

5. The clause literal-9 IS mnemonic-name-4 specifies the CODE 
value for a particular report (refer to the CODE clause in 
Section 4.9.26). Literal-1 must be an alphanumeric literal 
enclosed in quotation marks, and can be from 1 through 120 
characters in length. 

6. If you use the CURRENCY SIGN clause in the SPECIAL-NAMES 
paragraph, you must use the literal you specify (instead of 
the $ character) in PICTURE clauses in the Data Division. 
For instance, if you wish to insert a currency sign at the 
front of a field which is to be printed on your report, you 
must use the literal you specified - not the $ character - as 
the editing symbol. 

This literal is limited to a single printable character and 
must not be one of the following characters: 

digits through 9 

alphabetic characters A, B, C, D, L, P, R, S, V, X, Z 

special characters * + -,.;()"/ = 

7. If you use the DECIMAL-POINT IS COMMA clause, then the 
functions of the comma and period are interchanged for all 
PICTURE clauses and numeric literals. 



Example 



SPECIAL-NAMES. CONSOLE IS MYTERM 
CHANNEL (1) IS TOP-OF-PAGE. 



3-8 October 1985 



THE ENVIRONMENT DIVISION 



INPUT-OUTPUT SECTION 



3.1.5 INPUT-OUTPUT SECTION 

The Input-Output Section names the files and external media required 
by the object program and provides information required for 
transmitting and handling data during execution of the object program. 
This section consists of the section header (INPUT-OUTPUT SECTION.) 
followed by one or more of the following paragraphs: 

FILE-CONTROL. (See Section 3.1.6) 

I-0-CONTROL. (See Section 3.1.15) 

Technical Notes 

1. This section is optional. 

2. All semicolons and commas are optional. Each SELECT 
statement in the FILE-CONTROL paragraph must end with a 
period. The entire entry in the I-O-CONTROL paragraph must 
end with a period. 
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3.1.6 FILE-CONTROL 

Function 

The FILE-CONTROL paragraph names each file, identifies the file 
medium/ and allows logical hardware assignments. 

General Format 



FORMAT 1 : 

SELECT [ OPTIONAL ] file-name 

ASSIGN TO devi ce-name- 1 [devi ce-name-2] 

RESERVE integer-1 AREAS 
[ ORGANIZATION IS SEQUENTIAL [ CHECKPOINT OUTPUT ] 
[ACCESS MODE IS SEQUENTIAL] 

' ASCII 
SI XB IT 

BINARY 

I 

STANDARD-ASCII 
STANDARD ASCII 



RECORDING 



MODE IS [ BYTE MODE ] 



DENSITY IS 




PARITY IS 



/QJUJ 



f FILE-STATUS 
FILE STATUS 



IS data-name-1 



data-name-2 



data-name-3 



data-name-4 



data-name-5 [dat a-name-6 [data-name-7 [data-name-8]]J I 



Version 12A 



3-10 



January 1980 



THE ENVIRONMENT DIVISION 



FILE-CONTROL (Cont.) 



FORMAT 2: 
SELECT file-name 

ASSIGN TO device-name- 1 [device-name-2] ... 



RESERVE integer-1 [j^]] 

ORGANIZATION IS RELATIVE [wiTH CHECKPOINT OUTPUT [EVERY integer-1 RECORDS]] 
SEQUENTIAL RELATIVE KEY IS data-name-1 



ACCESS MODE IS 




'{ dYNAMIc } relativ E key is data-name-1 



( ASCII 
1 SIXBIT 
IS< I 



MODE IS< BINARY 



If 



IS data-name-1 



[ 



data-name-2 data-name-3 data-name-4 



[« 



|data-name-5 [data-name-6 [data-name-7 [data-name-8]]JJJ 
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FORMAT 3 : 
SELECT file-name 



ASSIGN TO device-name-1 [device-name-2] ... 
RESERVE integer- 1 [J^as] 



ORGANIZATION IS [RMS] INDEXED 



( SEQUENTIAL | 

ACCESS MODE IS { RANDOM > 

I DYNAMIC J 



UTT m ( CHECKPOINT OUTPUT [EVERY integer-1 RECORDS]! 
(DEFERRED OUTPUT j 



RECORD KEY IS data-name-1 

[ALTERNATE RECORD KEY IS data-name-1 [WITH DUPLICATES ]] ... 



RECORDING 



L 



S ASCII 
SIXBIT 
BINARY 



IF 



(FILE-STATUS \ T T T 

FILE STATUS I J ^ data-name-1 data-name-2 data-name-3 data-name-4 

[data-name-5 [data-name-6 [data-name-7 [data-name-8]]JJj 
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Technical Notes 



1. This section is optional. 

2. All semicolons and commas are optional. Each SELECT clause 
must end with a period. 

3. The SELECT and ASSIGN statements must appear before any other 
clause shown, and the SELECT statement must precede the 
ASSIGN statement. Every file described in the Data Division 
must be named in a SELECT clause in the Environment Division. 
Thus, the following clause must be specified for every such 
file: SELECT file-name ASSIGN TO device-name. 



4. The individual clauses are described on the 
in the order shown above. 



following pages 
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3.1.7 SELECT 

Function 

The SELECT statement names each file that is to be described 
Data Division, and assigns each file to a particular device. 



in the 



General Format 



SELECT fi le-name 



ASSIGN TO 



1 i teral-1 
devi ce-name-1 



,literal-2 

, devi ce-name-2 



Technical Notes 



Each file described in the Data Division must be named once 
and only once as a file-name in a SELECT statement. 
Conversely, each file named in a SELECT statement must have a 
File Description entry in the Data Division. Each file-name 
must be unique within a program. 

The key word OPTIONAL is required for input files that are 
not necessarily present each time the object program is run. 
When your program tries to open a file which you have 
declared to be OPTIONAL, the question IS file-name PRESENT? 
is typed on the operator's console and the operator responds 
with YES or NO. If the response is YES, the file is 
processed normally; if the response is NO, the first READ 
statement executed for that file will immediately take the AT 
END or INVALID KEY path. 



NOTE 

ISAM files may not be optional. They must be present 
at program start-up, even if only as dummy files. 
(Refer to the COBOL-74 Usage Material, Part 3 of this 
manual, for more information on ISAM.) 



3. The ASSIGN clause specifies the device for a file. 
Device-names can be either physical device-names or logical 
device-names . 

Physical device-names are fixed mnemonic-names that refer to 
specific peripheral devices. When specified in an ASSIGN 
clause, a physical device-name assigns the associated file to 
that device. Physical device-names are described in the 
TOPS-10 Operating System Commands Manual and the TOPS-20 
User 's Guide . 
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Logical device-names are names created by the programmer. 
They can contain up to six characters, and can consist of any 
combination of letters and digits. At object execution time, 
each logical device-name must be assigned to a physical 
device by means of a monitor command (refer to the COBOL-74 
Usage Material, Part 3 of this manual, for an explanation of 
the commands) . 

4. Using a literal with the ASSIGN clause enables you to use 
COBOL reserved words as legal device names. The literal name 
must follow the same conventions as the device-name. The 
literal name can contain up to six characters, and can 
consist of any combination of letters and digits. At object 
execution time, each name must be assigned to a physical 
device by means of a monitor command (refer to the COBOL-74 
Usage Material, Part 3 of this manual, for an explanation of 
the commands) . 

5. You may assign more than one device to a file to avoid delay 
when switching from one reel or unit to the next. When you 
specify more than one device the object program automatically 
uses the next device, in a cyclic manner, when an end-of-reel 
condition is detected. This applies only to tape devices and 
SORT and ISAM files, and it is unconditional for tapes. For 
SORT/MERGE, any number of devices may be assigned. If the 
disks are specified generically, SORT/MERGE will use its 
internal algorithm to determine which physical devices to 
use. Otherwise, all devices specified will be used in a 
round-robin fashion. For ISAM files you may assign not more 
than two devices. 

6. If the access mode is INDEXED and two devices are assigned, 
the first device is assumed to contain the index portion of 
the file and the second to contain the data portion of the 
file. If one device is specified, it is assumed to contain 
both the index portion and the data portion of the file. 

7. For ISAM and random files, the devices must be random-access. 



Examples 

SELECT INFIL ASSIGN TO MTA1 . 

SELECT SRTFIL ASSIGN TO DSK , DSK, DSK. 
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3.1.8 RESERVE 

Function 

The RESERVE clause allows you to specify the actual number of 
input/output buffer areas for the compiler to allocate to this file. 

General Format 



RESERVE integer-1 [j™ 



Technical Notes 

1. If you specified the organization for this file as RELATIVE 
or INDEXED, this clause is ignored and only one buffer area 
is assigned. 

2. If you did not specify RELATIVE or INDEXED organization, the 
integer specifies the number of buffer areas for the compiler 
to assign. 

3. If you omit this clause for a sequential file, two areas will 
be assigned. 

4. You can specify a maximum of 62 areas for integer-1. 
However, the optimal number of areas you can specify is 
between 5 and 10. If you specify the number of areas to be 
greater than 62, a warning message is generated. If you 
specify a large (but legal) number of areas, you might run 
out of available memory. Specifying a large number of areas 
might also cause your program to run more slowly, since your 
program will be that much bigger. 



Example 



SELECT INFIL ASSIGN TO DSK 
RESERVE 1 AREA. 
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3.1.9 ORGANIZATION 

Function 

The ORGANIZATION clause specifies the way in which a file will be 
accessed. 

General Format 



ORGANIZATION IS 



re!?ative AL [ checkpoint J 



INDEXED 



DEFERRED 
CHECKPOINT 



OUTPUT 



Technical Notes 



1. The ORGANIZATION clause is required for 
indexed-sequential files. It is ignored 
files. 



relative and 
for sequential 



If ORGANIZATION IS SEQUENTIAL and the file is on a 
random-access device, records are obtained or placed 
sequentially. That is, the next logical record is made 
available from the file on a READ statement execution, and an 
output record is placed into the next available area on a 
WRITE statement execution. Thus sequential-access processing 
on a random-access device is functionally similar to the 
processing of a magnetic tape file. 

If ORGANIZATION IS RELATIVE, the contents of the data item 
associated with the RELATIVE KEY specifies which record, 
relative to the beginning of the file, is made available by a 
READ statement, or where the record is to be placed by a 
WRITE statement, or which record is to be deleted by a DELETE 
statement, or which record will be replaced by a REWRITE 
statement. 

If ORGANIZATION IS INDEXED, the contents of the data item 
associated with the RECORD KEY specifies which record is made 
available by a READ statement, or where the record is to be 
placed by a WRITE statement, or which record is to be deleted 
by a DELETE statement, or which record will be replaced by a 
REWRITE statement. 

The DEFERRED OUTPUT option of the ORGANIZATION IS INDEXED 
clause causes the object-time system to output a block of an 
indexed-sequential file only when another block must be 
brought into memory. Normally, to ensure integrity for the 
file, a block is output every time a record is written, even 
if records are written successively in the same block. When 
a file is opened for simultaneous update, the DEFERRED OUTPUT 
clause is ignored. Refer to the OPEN statement, Section 
5.9.25. 
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6. If you are using ISAM files sequentially, DEFERRED OUTPUT 
provides the advantage of running faster. However, your file 
is also more easily damaged if the system crashes. Thus, its 
use is advantageous if file integrity is not important. 

7. If you use the ORGANIZATION IS INDEXED clause, you may also 
specify the CHECKPOINT OUTPUT option (instead of DEFERRED 
OUTPUT) . If you specify this option, the object-time system 
will force the buffers to be written out, and all pointers 
internal to the file to be updated, after every WRITE 
statement. This will naturally make your program run much 
more slowly. However, it will also safeguard your file 
against system crashes, since the file will have been updated 
after the last WRITE before the crash. 



Example 



SELECT INFIL ASSIGN TO DSK , DSK 

ORGANIZATION IS INDEXED DEFERRED OUTPUT. 
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3.1.10 ACCESS MODE 

Function 

The ACCESS MODE clause specifies the method used to access the file in 
question. 

General Format 

SEQUENTIAL 
ACCESS MODE IS < RANDOM 



DYNAMIC 



Technical Notes 



1. If you do not specify the ACCESS MODE clause, ACCESS MODE IS 
SEQUENTIAL is assumed regardless of the organization of the 
file. 

2. If you specify ACCESS MODE IS DYNAMIC you can access the file 
either sequentially or randomly. 

3. When you specify ACCESS MODE IS SEQUENTIAL, the records in 
your file are accessed in the sequence dictated by the file 
organization. Sequential files are accessed in the same 
order they are added to the file. Relative files are 
accessed in ascending relative record number order. Indexed 
files are accessed in ascending record key order. 

4. If you specify ACCESS MODE IS RANDOM, the RELATIVE KEY (for 
relative files) or the RECORD KEY (for indexed files) 
indicates the record to be accessed. 

5. If integer-1 is zero, or if you do not specify the EVERY 
integer-1 RECORDS clause, the checkpointing actions occurs 
after every physical write. 



Example 



SELECT INFILE ASSIGN TO DSK 
ORGANIZATION IS INDEXED 
ACCESS MODE IS DYNAMIC 
RECORD KEY IS RECKEY. 
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3.1.11 RECORD KEY 

Function 

The RECORD KEY clause specifies the record in an indexed-sequential 
file that is to be read, written, deleted, or rewritten. 

General Format 

RECORD KEY IS data-name-1 

MR-S-1260-81 

Technical Notes 

1. The RECORD KEY clause is valid only for files whose 
organization is INDEXED; it must be specified for those files 
(refer to the READ statement/ Section 5.9.27). 

2. You must define the RECORD KEY data-name as an item in the 
record area of the file to which it pertains. Though the 
RECORD KEY is described in only one of the records, it is 
assumed to occupy the same position in all records for that 
file. 

3. If the file for which you are specifying the RECORD KEY 
clause is to be accessed through RMS (that is, if the file is 
a multi-key ISAM file), the RECORD KEY data item cannot be 
longer than 255 characters. The data item must also be in 
some DISPLAY format; DISPLAY-6, DISPLAY-7, or DISPLAY-9 are 
legal, but no COMPUTATIONAL formats are legal. 

4. The RECORD KEY is required to describe the location in the 
record area of the key for the file. The contents of the 
RECORD KEY data-item must be unique for each record in the 
file and cannot be equal to LOW-VALUES. However, when the 
RECORD KEY is equal to LOW-VALUES, the results of a READ, 
WRITE, REWRITE, and DELETE are unpredictable. 



Example 



SELECT INFIL ASSIGN TO DSK, DSK 
ORGANIZATION IS INDEXED 
RECORD KEY IS RECKEY. 
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3.1.12 ALTERNATE RECORD KEY 

Function 

The ALTERNATE RECORD KEY clause specifies secondary keys that can be 
used with multi-key indexed files. These files are accessed through 
RMS. See Appendix I, Using RMS Indexed Files, for more information on 
RMS files. 

General Format 

[ALTERNATE RECORD KEY IS data-name-1 [WITH DUPLICATES ]] ... 

Technical Notes 

1. The ALTERNATE RECORD KEY clause is valid only for 
indexed-sequential files that are accessed through RMS. 

2. You must define the ALTERNATE RECORD KEY data-name as an item 
in the record area of the file to which it pertains. Though 
the ALTERNATE RECORD KEY is described in only one of the 
records, it is assumed to occupy the same position in all 
records for that file. 

3. No key specified with the ALTERNATE RECORD KEY clause can be 
larger than 255 characters. 

4. All alternate key data items must be in one of the DISPLAY 
formats. DISPLAY-6, DISPLAY-7, and DISPLAY-9 are legal, but 
no COMPUTATIONAL formats are legal. 

5. You can specify up to 255 different ALTERNATE RECORD KEYs for 
each file. If more than one alternate key is to be used, an 
additional ALTERNATE RECORD KEY clause must be specified for 
each alternate key. 

6. Keys specified with the ALTERNATE RECORD KEY syntax must have 
the same data format (as defined in the USAGE clause) as the 
record of which they are a part. However, variable-length 
keys are not allowed. 

7. Files with ALTERNATE RECORD KEYs can not be opened for 
simultaneous update. 

8. A KL or KS CPU is required for the use of RMS files. 
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3.1.13 RELATIVE KEY 
Function 

The RELATIVE KEY clause specifies which record is read or written in a 
relative file. 

General Format 

RELATIVE KEY IS data-name-1 



Technical Notes 

1. The RELATIVE KEY clause is valid only for a file whose 
organization is RELATIVE; it must be specified for this type 
of file. This clause cannot be used for a file whose 
organization is INDEXED or SEQUENTIAL. 

2. The RELATIVE KEY data-name must be defined in the Data 
Division as a COMPUTATIONAL item of ten or fewer digits. The 
PICTURE can contain only the character 9 or its equivalent, 
for example 9 (10) . 



Example 



SELECT INFIL ASSIGN TO DSK 

ORGANIZATION IS RELATIVE 
ACCESS MODE IS RANDOM 
RELATIVE KEY IS RKEY. 
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3.1.14 RECORDING MODE/DENSITY/PARITY 

Function 

The RECORDING MODE clause specifies the recording mode, tape density, 
and parity for a magnetic tape file. 



General Format 



RECORDING 



MODE IS [ BYTE MODE] 



DENSITY IS I 



Technical Notes 



/ 200^ 






556 






800 


• 




1600 






k 6250 J 







PARITY IS 



ASCII 

SIXBIT 

BINARY 

V 

STANDARD-ASCII 
STANDARD ASCII 



lOM 



( EVEN 



MR-S-1263-81 



1. The RECORDING MODE clause allows you to record data on the 
device in a format other than that used in memory. The 
following recording modes are acceptable. 

ASCII - The file is read/written as ASCII records, five 
7-bit characters per 36-bit word. Bit 35 (the 
rightmost bit) is ignored. 

SIXBIT - The file is read/written as SIXBIT records, six 
6-bit characters per 36-bit word with record 
headers. 

BINARY - The file is read/written as binary records, 36 bits 
per word. 

F - The file is read/written as fixed-length EBCDIC 
records, four 9-bit characters per 36-bit word. 
However, for industry-compatible magnetic tape 
(9-track, with at least 800 bpi density), the file 
is read/written with four 8-bit characters per 
36-bit word. If more than one record description is 
given in the FD entry, the record length must be the 
same for all of them. 
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V - The file is read/written as variable-length EBCDIC 
records, four 9-bit characters per 36-bit word with 
record and block headers. However, for 
industry-compatible magnetic tape (9-track, with at 
least 800 bpi density) , the file is read/written 
with four 8-bit characters per 36-bit word. If a 
file whose recording mode is V is open for 
INPUT-OUTPUT and you overwrite a record, the record 
being written must be the same size as the 
overwritten record. A file whose recording mode is 
V cannot be opened for simultaneous update. 

STANDARD-ASCII (STANDARD ASCII) 

The five 7-bit bytes in each word in memory are 

transferred to five 8-bit bytes on the tape and bit 
35 is stored in bit of the fifth byte on tape. 

The character set and the character encodings are 

the same as those of ASCII recording mode. This 

enables interchanges with other manufacturers' ASCII 

data files. This recording mode is valid for 
magnetic tape only. 

The format of records for each recording mode is given in 
Sections 8.1 and 8.2 of this manual. 

2. The recording mode of a file is determined by a number of 
factors besides the recording mode specified in the RECORDING 
MODE clause. These factors are: 

a. If the device can only accept ASCII data (for example, a 
line printer) , the object-time system always uses ASCII 
as the recording mode no matter what recording mode is 
specified. 

b. If the ADVANCING or POSITIONING clause is included in the 
WRITE statement, the object-time system uses the 
recording mode specified. If no recording mode is 
specified, ASCII is the default. 

c. If the file descriptor (FD) has a REPORT clause, the 
object-time system always uses ASCII as the recording 
mode no matter what recording mode is specified. 

d. The recording mode specified in the RECORDING MODE clause 
is compared to the USAGE clause for the record. The 
recording mode is determined in the following sequence: 

1. The recording mode that is specified is used. 

2. If the recording mode is not specified, the default 
recording mode depends on the usage mode that is 
specified. 

3. If neither the recording mode nor the usage mode is 
specified, the default recording mode depends on the 
display mode. 
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Table 3-1 
Recording Modes 



RECORDING MODE 
Clause 


USAGE 
Clause 


RECORDING MODE 
Actually Used 








none 


DISPLAY-6 


SIXBIT 


none 


DISPLAY-7 


ASCII 


none 


DISPLAY-9 


EBCDIC 


none 


none 


SIXBIT (no /X) 


none 


none 


EBCDIC (/X) 


SIXBIT 


DISPLAY-6 


SIXBIT 


SIXBIT 


DISPLAY-7 


SIXBIT 


SIXBIT 


DISPLAY-9 


SIXBIT 


ASCII 


DISPLAY-6 


ASCII 


ASCII 


DISPLAY-7 


ASCII 


ASCII 


DISPLAY-9 


ASCII 


F or V 


DISPLAY-6 


EBCDIC 


F or V 


DISPLAY-7 


EBCDIC 


F or V 


DISPLAY-9 


EBCDIC 


BINARY 


DISPLAY-6 


BINARY 


BINARY 


DISPLAY-7 


BINARY 


BINARY 


DISPLAY-9 


BINARY 




NOTE 




The object- 
makes the c 
the recordir 
mode of the 


-time system < 

:onversions nece. 

ig mode conform 1 

records. (Thes< 


automatically 
ssary to have 
bo the usage 
2 conversions 


may cause 
slowly. ) 


your program 


to run more 
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3.1.14 FILE STATUS 

Function 

The FILE STATUS clause specifies data-items into which the object-time 
system places values when an I/O error or warning message occurs on 
the file specified by the SELECT clause. A user-written USE procedure 
may then examine and alter these values as part of a recovery process. 

General Format 



FILE-STATUS I 
FILE STATUS ) 



IS data-name-1 



data-name-2 



data-name-3 



data-name-4 



data-name-5 



data-name-6 



data-name-7 [data-name-8j 



Technical Notes 



Data-name-1 is required if you specify this clause, but 
data-name-2 through data~name-8 are optional. If you specify 
fewer than eight data-names, the compiler assumes that the 
data-names are specified starting with data-name-1 and 
continuing in order. Therefore, if you wish to specify 
data-name-8, you must also specify data-name-1 through 
data-name-7. 
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3.1.15 FILE STATUS 

Function 

The FILE STATUS clause specifies data-items into which the object-time 
system places values when an I/O error or warning message occurs on 
the file specified by the SELECT clause. A user-written USE procedure 
can then examine and alter these values as part of a recovery process. 

General Format 



file-status ) 
file status ( 



IS data-name-1 



data-name-2 



data-name-3 



data-name-4 



data-name-5 



data-name-6 



data-name-7 [data-name-8j 



MR-S-1264-81 



Technical Notes 

1. Data-name-1 is required if you specify this clause, but 
data-name-2 through data-name-8 are optional. If you specify 
fewer than eight data-names, the compiler assumes that the 
data-names are specified starting with data-name-1 and 
continuing in order. Therefore, if you wish to specify 
data-name-8, you must also specify data-name-1 through 
data-name-7. 
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2. You must define the data-names in the Working Storage Section 
of the Data Division in the following form. 

data-name-1 PIC 9(2). 

data-name-2 PIC 9(10). 

data-name-3 USAGE INDEX. 

data-name-4 PIC X(9). 

data-name-5 USAGE INDEX. 

data-name-6 USAGE INDEX. 

data-name-7 PIC X(30). 

data-name-8 USAGE INDEX. 

3. After a fatal I/O error, the FILE STATUS items contain the 
following values. 

data-name-1 contains the file status. 
data-name-2 contains a 10-digit error number. 
data-name-3 contains the action code, which is set to zero. 
data-name-4 contains the VALUE OF ID. 
data-name-5 contains the current block number. 
data-name-6 contains the current record number. 
data-name-7 contains the file name. 
data-name-8 contains the file-table pointer. 

The file status, which is stored in data-name-1, is set to one of the 
following 2-character codes. 

00 The I/O was successful. 

10 No next logical record; that is, there is no next record in 
the file. The AT END path is taken. 

21 Sequence error, primary key has changed; the prime record key 
value has been changed by the program. 

22 Duplicate key; that is, an attempt was made to write a record 
into a record position that is already occupied. The INVALID 
KEY path is taken. 

23 No record found on READ, REWRITE, DELETE; that is, when an 
indexed-sequential file was accessed, an empty record 
position was found. The INVALID KEY path is taken. 

24 Boundary violation, that is, the random file's actual key 
violated the file limits. The INVALID KEY path is taken. 

30 Permanent error; that is, a successful hardware operation 
cannot be done without a hardware error signal. 

34 Permanent error; that is, more space on the media cannot be 
obtained to extend the file for output operations. 

The 10-character error number stored in data-name-2 has the form: 

ABCDEFGHIJ 

where the code has the meanings shown below. 

AB contains a value indicating the COBOL verb that caused the error. 

No COBOL verb error 

1 OPEN 

2 CLOSE 

3 WRITE 

4 REWRITE 

5 DELETE 

6 READ 

7 RETAIN 

8 OPEN EXTEND 
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21 FILE CANNOT BE CLOSED 

THE CLOSE "REEL" OPTION MAY NOT BE USED WITH A 
MULTI-FILE-TAPE 

22 FILE IS NOT OPEN FOR OUTPUT 

23 ZERO LENGTH RECORDS ARE ILLEGAL 
FILE CANNOT DO OUTPUT 

24 "AT END" PATH HAS BEEN TAKEN 
FILE CANNOT DO INPUT 

25 ENCOUNTERED AN "EOF" IN THE MIDDLE OF A RECORD 
FILE CANNOT DO INPUT 

26 RECORD-SEQUENCE-NUMBER n SHOULD BE m 
FILE CANNOT DO INPUT 

27 file-name ON device-name SHOULD BE REORGANIZED, THE TOP INDEX 
BLOCK WAS JUST SPLIT 

28 NOT USED 

29 EITHER THE ISAM FILE DOES NOT EXIST OR THE VALUE OF ID 
CHANGED DURING THE PROGRAM 

30 ATTEMPT TO DO I/O FROM A SUBROUTINE CALLED BY A NON RESIDENT 
SUBROUTINE. FILE CANNOT BE OPENED 

31 I/O CANNOT BE DONE FROM AN OVERLAY, FILE CANNOT BE OPENED 

32 READ AN "EOF" INSTEAD OF A LABEL 

33 CLOSE REEL IS LEGAL ONLY FOR MAGNETIC TAPE 

34 FILE IS NOT OPEN FOR INPUT 

35 NOT ENOUGH FREE MEMORY BETWEEN .JBFF AND OVERLAY AREA 

36 INSUFFICIENT MEMORY WHILE ATTEMPTING TO SPLIT THE TOP INDEX 
BLOCK 

37 STANDARD ASCII RECORDING MODE AND DENSITY OF 1600 BPI REQUIRE 
THE DEVICE TO BE A TU70 

38 TAPOP. FAILED - UNABLE TO SET STANDARD-ASCII MODE 

39 GOT AN EOF IN MIDDLE OF BLOCK/RECORD DESCRIPTOR WORD 

40 BLOCK DESCRIPTOR WORD BYTE COUNT IS LESS THAN FIVE 

41 ERROR - GOT ANOTHER BUFFER INSTEAD OF "EOF" 

42 ERROR - RECORD EXTENDS BEYOND THE END OF THE LOGICAL BLOCK 

43 IT IS ILLEGAL TO CHANGE THE RECORD SIZE OF AN EBCDIC I/O 
RECORD 

44 THE TWO LOW-ORDER BYTES OF A BLOCK/RECORD DESCRIPTOR WORD 
MUST BE ZERO 

If CD is set to 1 or 2, HIJ contains the number of an I/O error status 
bit. The I/O error status bits, their mnemonics, and their meanings, 
are shown in Table 3-2. 
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Table 3-2 
Monitor File Status Bits 



Bit 


Mnemonic 


Meaning 








18 


10. IMP 


Improper Mode. Attempt to write on a 
software write-locked file structure, or a 
software redundancy failure occurred. This 
bit is usually set by the monitor. The 
user cannot set this bit. 


19 


IO.DER 


Hardware device error. The disk unit is in 
error, rather than the data on the disk. 
However, data read into memory or written 
on the disk is probably incorrect. The 
user does not usually set this bit. 


20 


10. DTE 


Hard data error. The data read or written 
has incorrect parity as detected by the 
hardware. The user's data is probably 
unrecoverable even after the device has 
been fixed. This bit is usually not set by 
the user. 


21 


IO.BKT 


Block too large. A disk data block is too 
large to fit into the buffer; or a block 
number is too large for the disk unit; or 
DSK has been filled; or the user's quota 
on the file structure has been exceeded. 
This bit is usually not set by the user. 
This error is also returned when the user 
tries to close a file that has open locks 
associated with it (via Enqueue/Dequeue) . 


22 


10. EOF 


End-of-file. The user program has 
requested data beyond the last block of the 
file with an IN or INPUT call; or USETI 
has specified a block beyond the last data 
block of the file. When 10. EOF is set, no 
data has been read into the buffer. This 
bit is usually not set by the user. 


23 


10. ACT 


I/O Active. The disk is actively 
transmitting or receiving data. This bit 
is always set by the monitor for its own 
use. 


29 


IO.WHD 


Write disk-pack headers. This is used in 
conjunction with the SUSET. monitor call to 
format a disk pack. (Not used in COBOL) 


30 


IO.SYN 


Synchronous mode I/O. Stop disk after 
every buffer is read or written. (Not used 
in COBOL) 


31 


10 . UWC 


User word count, supplied by the user in 
each buffer. 


32-35 


10. MOD 


Data mode of the device. 
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For the file status for each device, refer to the Monitor Calls 
Manual . 

If CD is set to 3, 4, 5, or 7, HIJ contains the error code for LOOKUP, 
ENTER, RENAME, or FILOP errors. Table 3-3 gives these codes and their 
meanings. 



Table 3-3 
Monitor Error Codes 



Code 


Explanation 









File not found, illegal filename (0,*), 
filenames do not match, or RENAME after a LOOKUP 
failed. 


1 


UFD does not exist on specified file structures. 
(Incorrect project-programmer number) 


2 


Protection failure or directory full on DTA. 


3 


File being modified. 


4 


Filename already exists (RENAME) or filename is 
different (ENTER after LOOKUP) or requested 
supersede (on a non-superseding ENTER) . 


5 


Illegal sequence of UUOs (RENAME with neither 
LOOKUP nor ENTER, or LOOKUP after ENTER) . 


6 


1. Transmission, device, or data error. 

2. Hardware-detected device or data error 
detected while reading the UFD RIB or UFD 
data block. 

3. Software-detected data inconsistency error 
detected while reading the UFD RIB or file 
RIB. 


7 


Not a saved file. (Not expected to occur) 


10 


Not enough memory. 


11 


Device not available. 


12 


No such device. 


13 


No 2-register relocation capability. (Not 
expected to occur) 


14 


No room on this file structure or quota exceeded 
(overdrawn quota not considered) . 


15 


Write-lock error. Cannot write on file 
structure. 


16 


Not enough table space in free memory of 
monitor. 
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Monitor Error Codes 



Code 



Explanation 



17 
20 
21 
22 

23 

24 

25 

26 



27 

30 
31 

32 



Partial allocation only. 

Block not free on allocated position. 

Cannot supersede an existing directory. 

Cannot delete a nonempty directory. (Not 
expected to occur) 

Subdirectory not found (some SFD in the 
specified path was not found) . 

Search list empty (LOOKUP or ENTER was performed 
on generic device DSK and the search list is 
empty) . 

Cannot create a SFD nested deeper than the 
maximum allowed level of nesting. (Not expected 
to occur) 

No file structure in the job's search list has 
both the no-create bit and the write-lock bit 
equal to zero and has the UFD or SFD specified 
by the default or explicit path (ENTER on 
generic device DSK only) . 

GETSEG from a locked low segment to a high 

segment which is not a dormant, active, or idle 

segment. (Segment not on the swapping space) 
(Not expected to occur) 

Cannot update file. 

Low segment overlaps high segment. (Not 
expected to occur) 

Not logged in. (Not expected to occur) 



4. The FILE STATUS items are the 
the object-time system and a 
specifies a recovery proces 
warning occurs during an 
determines the error or warni 
placed into data-name-2 by 
returns to the object-time sy 
USE procedure. The object- 
by the error number and by th 
placed into data-name-3 by 
action-code is set to 1, the 
error and continues the run. 



paths of communications between 
USE procedure. A USE procedure 
s executed when an error or 
I/O operation. A USE procedure 
ng type from the error-number 
the object-time system. Control 
stem at the conclusion of the 
time system action is determined 
e contents of the action-code 
the USE procedure. If the 
object-time system ignores the 
If the action-code is left set 
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to 0, the object-time system issues an error message and 
terminates the run. If the error-number is 17, the 
object-time system continues the run independent of the 
action-code setting. If the action-code is not or 1, the 
object-time system action is undefined. 

When the program comes to a normal termination and , you have 
requested (by loading a "1" into the action-code) that errors 
be ignored, the object-time system issues the following 
message: 

%n ERRORS IGNORED 

5. Refer to the USE statement in Section 5.9.42 for details of 
writing USE procedures. 

6. If you did not specify the FILE STATUS statement, I/O error 
recovery processing cannot be performed. If you specify the 
FILE STATUS statement with only data-name-1 included, you can 
examine the status of the file, but you cannot specify that 
the object-time system ignore the error because you cannot 
set the action code (data-name-3) . You also cannot examine 
the error number (data-name-2) . 



Example 



SELECT INFIL ASSIGN DSK , DSK 
ORGANIZATION IS INDEXED 
ACCESS MODE IS RANDOM 
RECORD KEY IS RECKEY 
RECORDING MODE IS ASCII 

FILE STATUS IS FILSTAT, ERRNUM, ACTCODE , VID, 
BLKNUM, RECNUM, FILNAM, FILPNTR. 



DATA DIVISION. 



WORKING-STORAGE SECTION, 

77 FILSTAT PIC 9(2) . 

77 ERRNUM PIC 9(10) . 

77 ACTCODE INDEX. 

77 VID PIC X(9) . 

77 BLKNUM INDEX. 

77 RECNUM INDEX. 

77 FILNAM PIC X(30) . 

77 FILPNTR INDEX. 
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3.1.15 I-O-CONTROL 

Function 

The I-O-CONTROL paragraph specifies the points at which a RERUN DUMP 
is to be performed, the memory area that is to be shared by different 
files, and the location of files on a multiple-file reel. 



General Format 

Ql-0- CONTROL. 



RERUN EVERY 



I 



END OF 



{REEU 

i I UNIT / 

/ integer-! RECORDS 



OF file-name-1 



SAME 



RECORD 

SORT 

SORT-MERGE 



AREA FOR file-name-2 i file-name-3 \ 



MULTIPLE FILE TAPE CONTAINS file-name-4 [ POSITION integer- 3 | 



file-name-5 [" POSITION integer-4~]| . 



Technical Notes 

1. This paragraph is optional. 

2. The RERUN clause specifies when a 
performed. 



rerun dump is to be 



The dump is always written onto a disk file, using the 
program's low segment name as the filename, and an extension 
of CKP. If the program has no filename because it was never 
saved, the program name (from the PROGRAM-ID paragraph in the 
Identification Division) is used as a filename, with the 
extension CKP. 

If you use the END OF UNIT option, a rerun dump is taken at 
the end of each input or output reel of the specified REEL 
file. 

If you use the integer-1 RECORDS option, a rerun dump is 
taken whenever a number of logical records equal to a 
multiple of integer-1 is either read or written for the file. 
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A rerun dump is not taken if any files are open for 
input/output (updating) , or if any file is open on a device 
other than magnetic tape, disk, line printer, or terminal, or 
if an indexed-sequential (ISAM) file is open. Therefore, do 
not attempt to have a rerun dump taken while a sort is in 
progress. Also, RERUN cannot be used if overlays are used or 
if files are open for simultaneous update. 

3. The SAME AREA clause specifies that two or more files are to 
use the same area during processing; this overlapping 
applies to all buffer areas and the record area. However, 
unless the RECORD option is used, only one of the named files 
can be open at one time. 

If you specify the RECORD option, the files share only the 
record area (that is, the area in which the current logical 
record is processed) . All of the files mentioned in the SAME 
RECORD AREA clause may be open at the same time. A logical 
record in the SAME RECORD AREA is considered to be a logical 
record of each opened output file whose name appears in the 
SAME RECORD AREA clause, as well as the most recently read 
input file whose name is specified. Since the various 
DISPLAY usages are represented differently in memory, you 
must keep track of the usage of the record in the SAME RECORD 
AREA. You may use the record in any way you would otherwise 
use it. However, you must be sure that you have a record of 
the expected usage in the SAME RECORD AREA. If, for example, 
you plan to use a DISPLAY-7 record in your processing, you 
must have a DISPLAY-7 record in the SAME RECORD AREA, not a 
DISPLAY-6 record. You will not get an error message if you 
attempt to use a DISPLAY-6 record as if it were DISPLAY-7. 

The SORT option is used for sort files. However, this option 
need not be specified because all sort files always use the 
same sort area. 

4. The MULTIPLE FILE clause is required when several files share 
the same physical reel of tape. This clause is invalid for 
media other than magnetic tape. 

Regardless of the number of files on a single reel, only 
those files defined in the program may be listed. If all 
files residing on the tape are listed in consecutive order, 
the POSITION option need not be given. If any file on the 
tape is not listed, the POSITION option must be included; 
integer-2, integer-3, and so forth, specify the position of 
the file relative to the beginning of the tape. All files on 
the same reel of tape must be ASSIGNed to the same device in 
the FILE-CONTROL paragraph. 

No more than one file on the same reel of tape can be open at 
one time. 



Example 



I-0-CONTROL. 

RERUN EVERY 300 RECORDS OF INFIL 

SAME RECORD AREA FOR INFIL, OUTFIL 

MULTIPLE FILE TAPE CONTAINS INFIL POSITION 4. 
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3.1.16 I-O-CONTROL 

Function 

The I-O-CONTROL paragraph specifies the points at which a RERUN DUMP 
is to be performed, the memory area that is to be shared by different 
files, and the location of files on a multiple-file reel. 

General Format 



[ 



I-O-CONTROL. 



RERUN EVERY { — 0F { UJjUJ / OF file-name-1 
/ integer-! RECORDS 1 



SAME 



RECORD 

SORT 

SORT-MERGE 



AREA FOR file-name-2 



I 



file-name-3 



} 



MULTIPLE FILE TAPE CONTAINS file-name-4 I POSITION integer- 3 J 



file-name-5 [" POSITION integer-<T] ••• 
Technical Notes 

1. This paragraph is optional. 

2. The RERUN clause specifies when a 
performed. 



rerun dump is to be 



The dump is always written onto a disk file, using the 
program's low segment name as the filename, and an extension 
of CKP. If the program has no filename because it was never 
saved, the program name (from the PROGRAM-ID paragraph in the 
Identification Division) is used as a filename, with the 
extension CKP. 

If you use the END OF UNIT option, a rerun dump is taken at 
the end of each input or output reel of the specified REEL 
file. 

If you use the integer-1 RECORDS option, a rerun dump is 
taken whenever a number of logical records equal to a 
multiple of integer-1 is either read or written for the file. 

A rerun dump is not taken if any files are open for 
input/output (updating) , or if any file is open on a device 
other than magnetic tape, disk, line printer, or terminal. 
Therefore, do not attempt to have a rerun dump taken while a 
sort is in progress. Also, RERUN cannot be used if overlays 
are used or if files are open for simultaneous update. 
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Example 



The SAME AREA clause specifies that two or more files are to 
use the same area during processing; this overlapping applies 
to all buffer areas and the record area. However, unless the 
RECORD option is used, only one of the named files can be 
open at one time. 

If you specify the RECORD option, the files share only the 
record area (that is, the area in which the current logical 
record is processed) . All of the files mentioned in the SAME 
RECORD AREA clause can be open at the same time. A logical 
record in the SAME RECORD AREA is considered to be a logical 
record of each opened output file whose name appears in the 
SAME RECORD AREA clause, as well as the most recently read 
input file whose name is specified. Since the various 
DISPLAY usages are represented differently in memory, you 
must keep track of the usage of the record in the SAME RECORD 
AREA. You can use the record in any way you would otherwise 
use it. However, you must be sure that you have a record of 
the expected usage in the SAME RECORD AREA. If, for example, 
you plan to use a DISPLAY-7 record in your processing, you 
must have a DISPLAY-7 record in the SAME RECORD AREA, not a 
DISPLAY-6 record. You do not get an error message if you 
attempt to use a DISPLAY-6 record as if it were DISPLAY-7. 

The SORT and SORT-MERGE options are used for sort and merge 
files. However, these options need not be specified because 
all sort and merge files always use the same area. 

The MULTIPLE FILE clause is required when several files share 
the same physical reel of tape with a uniform labeling 
convention. This clause is invalid for media other than 
magnetic tape, and cannot be specified for a sort or merge 
file. In addition, this clause is invalid for monitor tape 
labeling (with ANSI) and does not work for COBOL labels. 

Regardless of the number of files on a single reel, only 
those files defined in the program can be listed. If all 
files residing on the tape are listed in consecutive order, 
the POSITION option need not be given. If any file on the 
tape is not listed, the POSITION option must be included; 
integer-2, integer-3, and so forth, specify the position of 
the file relative to the beginning of the tape. All files on 
the same reel of tape must be ASSIGNed to the same device in 
the FILE-CONTROL paragraph. 

Each file in a series of files sharing the same physical reel 
of tape, must be created with a uniform labeling convention. 

Files used for SORT or MERGE cannot be specified in the 
MULTIPLE FILE TAPE clause. 

No more than one file on the same reel of tape can be open at 
one time. 



I-0-CONTROL. 

RERUN EVERY 300 RECORDS OF INFIL 

SAME RECORD AREA FOR INFIL, OUTFIL 

MULTIPLE FILE TAPE CONTAINS INFIL POSITION 4. 
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ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 



SOURCE-COMPUTER, computer-name [WITH DEBUGGING MODE ] . 
OBJECT-COMPUTER, computer-name 



( WORDS ) 

MEMORY SIZE integer { CHARACTERS ) 

\ MODULES ) 



[PROGRAM COLLATING SEQUENCE IS alphabet-name] 
[SEGMENT-LIMIT IS segment-number] 
SPECIAL-NAMES. [ CONSOLE IS mnemonic- name- l] 
[ CHANNEL (m) IS mnemonic-name-2] 

[ CHANNEL (n) IS mnemonic- name- 3 . . .] 

IS mnemonic-name-4 [p_N_ STATUS IS condition-name-l] 
[ OFF STATUS IS condition-name-2 ] 

ON STATUS IS condition-name-l 

[ OFF STATUS IS condition-name-2] 

OFF STATUS IS condition-name-2 

[ON STATUS IS condition-name-l] 



SWITCH(m) 



alphabet-name IS 



STANDARD- 1 
NATIVE 
ASCII 
EBCDIC 



literal-1 



literal-5 



(IT! "t.r.,-2 
ALSO literal -3 [ALSO literal-4] 

" ( THROUGH ) m. „ a i , 
JTHRU ( literal-6 

ALSO literal-7 [ALSO literal-8] 



[literal -9 IS mnemonic- name- 4 J 
[ CURRENCY SIGN IS literal-io] 
[DECIMAL-POINT IS COMMA ] . 1 
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GENERAL FORMAT FOR FILE CONTROL STATEMENT 
FORMAT 2: 
SELECT (" OPTIONAL 1 file-name 

ASSIGN TO device-name- 1 [device-name-2] ... 



RESERVE integer- 1 ^ $ 

ORGANIZATION IS RELATIVE [wiTH CHECKPOINT OUTPUT [EVERY integer-1 RECORDS]] 



[ SEQUENTIAL [ RELATIVE KEY IS data-name-1]] 



ACCESS MODE IS< RANDOM 

DYNAMIC 



RELATIVE KEY IS data-name-1 



RECORDING 



ASCII 
SIXBIT 
MODE IS < BINARY 

"v 



FILE-STATUS 
FILE STATUS 



IS data-name-1 



data- name-2 



data-name-3 data-name-4 



data-name-5 [data-name-6 [data-name-7 [dat a-name-8]JJJJ 



MR-S-1269-81 



3-43 



THE ENVIRONMENT DIVISION 



GENERAL FORMAT FOR FILE CONTROL STATEMENT 



FORMAT 3 : 
SELECT file-name 

ASSIGN TO device-name-1 [device- name -2] 

RESERVE integer-1 [JJ|J^ 



WITH | 



ORGANIZATION IS [RMS] INDEXED WITH \ DEFERRED O UTPUT 



( SEQUENTIAL ) 

ACCESS MODE IS { RANDOM > 

(DYNAMIC ) 



CHECKPOINT OUTPUT [EVERY integer-1 RECORDS])"! 



>J 



RECORD KEY IS data-name-1 



| [ALTERNATE RECORD KEY IS data-name-1 [WITH DUPLICATES ]] .. 



RECORDING 



ASCII 
SIXBIT 
MODE IS<f BINARY 



FILE-STATUS 
FILE STATUS 



[■ 



IS data-name-1 data-name-2 data-name-3 data-name-4 



[■ 



[< 



[data-name-5 [data-name-6 [data-name-7 [data-name-8]]]JJ 
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CHAPTER 4 
THE DATA DIVISION 



The Data Division, which is required in every COBOL program, describes 
the characteristics of the data to be processed by the object program. 

This data can be divided into six major types: 

1. Data contained in files, both input and output 

2. Data contained in a database and accessed through the Data 
Base Management System 

3. Data to be sent to or received from the Message Control 
System or the Transactional Processing System 

4. Data which is used by the program in the process of executing 
(This data can be constant or variable, and may be stored as 
part of the program or computed by the program during its 
operation. ) 

5. Data in a subprogram that is passed from the program calling 
it 

6. Data to be printed in a report, and the format used to print 
such data 

To handle these types of data, the Data Division consists of the 
following sections: 

1. The File Section, which describes the characteristics and the 
data formats for each file processed by the object program 

2. The Schema Section, which names the sub-schema and schema 
that link a program or subprogram to the Data Base Management 
System 

3. The Communication Section, which defines the special data 
items that link a program or subprogram to the Message 
Control System (MCS-10) or the Transactional Processing 
System (TPS-20) 

4. The Working-Storage Section, which contains any fixed values 
and the working areas in which intermediate data can be 
stored 

5. The Linkage Section, which describes the data in a subprogram 
that is available from a calling program 

6. The Report Section, which describes the data and format of a 
report 
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Unused sections of the Data Division may be omitted. However, the 
sections which are included must be in the following order: 

FILE SECTION. 
SCHEMA SECTION. 
COMMUNICATION SECTION. 
WORKING-STORAGE SECTION. 
LINKAGE SECTION. 
REPORT SECTION. 



4.1 FILE SECTION 

The File Section begins with the section-header FILE SECTION. If 
present, it must be the first section in the Data Division. In the 
File Section, the characteristics of each file to be processed are 
described by two types of entries, the file description and the record 
description. 

The first type of entry, the file description, describes the physical 
aspects of the file. These aspects include: 

1. How the logical data records of the file are physically 
grouped into blocks on the file medium 

2. The maximum length of a logical record, which cannot exceed 
4095 characters 

3. Whether or not the file contains header and trailer labels 
and, if so, whether the format of these labels is standard or 
nonstandard 

4. The names of the records contained in the file 

5. The names of any reports in the file 

The second type of entry, the record description, describes the data 
formats of the logical records in the files. 



4.1.1 Record Descriptions 

Following the FD file-name entry for a file, or the SD file-name entry 
for a sort file, a record description is given for each different 
record format in the file. A record description consists of a set of 
data description entries which describe a particular logical record. 
Each data description entry consists of a level-number followed by a 
data-name (or FILLER) which is followed, as required, by a series of 
descriptive clauses. The general format of a data description entry 
can be found in Section 4.9.11. 

A record description begins with a level-01 entry: 

01 data-name 
A complete record description may be as simple as 

01 data-name PICTURE picture-string. 

or it may be more complex, where the 01-level is followed by a long 
series of data description entries of varying hierarchies that 
describe various portions and subportions of the record. A 01-level 
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data-name in the File Section cannot be explicitly redefined using the 
REDEFINES clause. However, because a file has only one record area, 
if more than one data-name is specified, they implicitly redefine the 
first data-name." 



4.1.2 Elementary Items and Group Items 

The basic user-defined datum in a COBOL program is called an 
elementary item; it may be referenced directly only as a unit. An 
elementary item may combine with contiguous elementary items to form 
sets of data items called group items. Group items may combine with 
other group items and/or elementary items to form more inclusive group 
items. Thus, an elementary item may be contained within one or more 
group items, and a group item may contain more than one elementary 
item. 



4.1.3 Level Numbers 

Level numbers indicate a hierarchy of data items. The highest level 
is 01, which signifies that the data item is a record within a file 
named in an FD clause (or is a contiguous area in the Working-Storage 
Section) . Level numbers of 02 through 49 indicate items that are 
subordinate to a 01-level data item. For example, an employee record 
can be described in the following manner: 

01 EMPLOYEE-RECORD. 
02 NAME. 

03 FIRST-NAME PICTURE IS A (6). 

03 MIDDLE-INITIAL PICTURE IS A. 

03 LAST-NAME PICTURE IS A (20). 
02 BADGE-NUMBER PICTURE IS X(5). 
02 SALARY-CLASS PICTURE IS X(2). 

Within a record description, the level numbers indicate which items 
are contained within higher-level items. In the above example, the 
items that have a 03 level are subordinate to NAME, which has a 02 
level, which is in turn subordinate to EMPLOYEE-RECORD, which has a 01 
level. The example also shows elementary items (those that contain 
PICTURE clauses) contained within group items. In this example, 
EMPLOYEE-RECORD is a group item, NAME is a group item contained within 
a group item, and FIRST-NAME is an elementary item contained within 
the group item NAME. An item at 01 level is not required to be a 
group item; it may be an elementary item as long as it is referenced 
as a unit. For example: 

01 EMPLOYEE-RECORD PICTURE IS X(34). 

shows the same record as above, but in this case the record is always 
operated on as a single entity. 

Three other level numbers are available to the COBOL programmer: 77, 
66, and 88. 

Items with a level number of 77 are noncontiguous elementary data 
items that are defined only in the Working-Storage Section to define 
constant values or to store intermediate results. Defining a level-77 
item is the equivalent of defining a level-01 elementary item. 

Level-66 data items are those items that contain an explicitly 
specified portion of a record already defined, or even the whole 
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record. A data item with a level number of 66 is used in a RENAMES 
clause to regroup items within a record. After a record is described, 
a level-66 item RENAMES a portion of that record. The level-66 data 
item can be a regrouping of the whole record, a group within the 
record, or a combination of group and elementary items. For example: 

01 EMPLOYEE-RECORD 
02 NAME 

03 FIRST-NAME. . . 

03 MIDDLE-INITIAL. . . 

03 LAST-NAME. . . 
02 BADGE-NO. . . 
02 SALARY-CLASS. . . 

66 PERSONNEL-REC RENAMES NAME THRU BADGE-NO. 
66 PAY-REC RENAMES LAST-NAME THRU SALARY-CLASS. 

When the level-66 item PAY-REC is referenced, the items LAST-NAME, 
BADGE-NO, and SALARY-CLASS are referenced as a unit. The programmer 
can thus regroup portions of a record for differing purposes. 

Level-88 items are condition-names that cause a value or a range of 
values to be associated with a data item. The condition-name may then 
be used in place of the relation condition in conditional expressions 
in the Procedure Division. For example: 

03 BADGE-NO. . . 

88 FIRST-BADGE VALUE IS A0001. 
88 LAST-BADGE VALUE IS Z9999. 

In a comparison, the following statements would then be equivalent: 

Conditional Variable Condition-Name 



IF BADGE-NO IS EQUAL TO A0001... 
IF BADGE-NO IS EQUAL TO Z9999... 



IF FIRST-BADGE 
IF LAST-BADGE. 



4.2 SCHEMA SECTION 

In the Schema Section, either an INVOKE statement or an ACCESS 
statement specifies the names of the sub-schema and schema to be 
processed. 

The Schema Section begins with the section-header SCHEMA SECTION and 
must follow the File Section, if present. 

If the installation does not include DBMS, the Schema Section cannot 
be used. 

A description of the contents of the Schema Section will be found in 
the Data Base System Programmer's Procedures Manual. 



4.3 COMMUNICATION SECTION 

The Communication Section contains the definitions of input and output 
communication-description entries. 

CD entries define records called CD records which contain special data 
items used to link the program to the Message Control System for users 
of TOPS-10 or the Transactional Processing System for users of 
TOPS-20. 
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4.3 COMMUNICATION SECTION 

The Communication Section contains the definitions of input and output 
communication-description entries. 

CD entries define records called CD records that contain special data 
items used to link the program to the Message Control System (MCS) for 
TOPS-10 users. 

The Communication Section begins with the section-header COMMUNICATION 
SECTION and must follow the File Section and Schema Section and 
precede the Report Section. 

If your TOPS-10 installation does not include MCS, the Communication 
Section cannot be used. 

Details of the Communication Section entries can be found in the 
Message Control System Programmer's Procedures Manual for TOPS-10 
users. 



4.4 WORKING-STORAGE SECTION 

The Working-Storage Section defines (1) data that is stored when the 
object program is loaded, and (2) areas used for intermediate results. 
The Working-Storage Section is similar to the File Section, except 
that the Working-Storage Section can contain level-77 items and cannot 
contain FD, SD, RD, CD, or SCHEMA entries. 

The Working-Storage Section begins with the section-header 
WORKING-STORAGE SECTION. 

The maximum size of a record in Working Storage is 262,143 characters. 
However, the maximum size of a record to be read or written can only 
be 4,095 characters. 



4.5 LINKAGE SECTION 

The Linkage Section describes data available from a calling program 
and can appear only in a subprogram. The structure is the same as 
that of the Working-Storage Section with the following restrictions: 

1. The VALUE clauses can only be used in condition-name entries. 

2. The data-names used in the VALUE OF IDENTIFICATION (or ID) , 
the VALUE OF DATE-WRITTEN, and the VALUE OF USER NUMBER 
cannot appear in this section. 

3. The OCCURS clause with the DEPENDING phrase cannot be defined 
in this section. 

4. The RECORD KEY and RELATIVE KEY data items cannot be defined 
in this section. 
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Data described in the Linkage Secti 
storage space. Instead, at link- 
equates the Linkage Section identif 
the ENTRY statement within the s 
the Procedure Division header withi 
program identifiers (listed in the 
within the calling program) . Thus, 
subprogram executes, references 
instead to the calling program data 

Thus: 



on of a subprogram is not allocated 
time, the LINK program sequentially 
iers (listed in the USING clause of 
ubprogram or in the USING clause of 
n the subprogram) to the calling 
USING clause of the CALL statement 
when the Procedure Division of a 
to the Linkage Section data refer 



CALLING PROGRAM 



CALLED PROGRAM 



DATA DIVISION. 
FILE SECTION. 
FD. . . 

01 MAIN. . . 

02 MAIN1. . . 
02 MAIN2. . . 



DATA DIVISION. 
FILE SECTION. 
LINKAGE SECTION, 

01 SUB... 

02 SUB1. . . 
02 SUB2. . . 



PROCEDURE DIVISION. 



PROCEDURE DIVISION. 
ENTRY ENTRPT USING SUB, 
SUB1, SUB2. 



CALL ENTRPT USING MAIN, 
MAIN1, MAIN2. 



EXIT PROGRAM. 



The identifier MAIN is defined in the File Section of the calling 
program; the identifier SUB is defined in the Linkage Section of the 
called program. When the Procedure Division of the called program 
executes, references to SUB refer instead to MAIN, references to SUBl 
refer to MAIN1, and so on through the list. See the COBOL-74 Usage 
Material, Part 3 of this manual, for more information about 
subprograms. 

Each 01- or 77-level item in the Linkage Section must have a unique 
name because it cannot be qualified. Also, each 01- and 77-level item 
must correspond to a word-aligned item of the same size or larger in 
the calling program. Word-aligned items start at the beginning of a 
computer word. All 01- and 77-level items fulfill this requirement; 
any items that do not can be made to do so by means of the 
SYNCHRONIZED LEFT statement. 



4.6 REPORT SECTION 

The Report Section defines reports by describing the physical 
appearance of the particular format and data rather than by specifying 
the procedure used to produce the report. 
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4.6.1 Format Of Report Section 



The Report Section contains the descriptions of one or more reports 
and the report groups that make up each report. 

Report groups are the basic elements of a report. Each report group 
is divided into report lines, which are in turn divided into fields. 
The report groups that can appear in a report are: 

REPORT HEADING printed once at the beginning 

REPORT FOOTING printed once at the end 

PAGE HEADING printed at the beginning of each page 

PAGE FOOTING printed at the end of each page 

DETAIL printed for each set of report data 

CONTROL HEADING printed at the beginning of each detail 

report group when a control break occurs 

CONTROL FOOTING printed at the end of each detail report 

group when a control break occurs 

The detail report groups contain the data items that constitute the 
report. Data items within a detail group can be designated by the 
programmer as controls. These control items are in descending order 
of rank from final, through major, intermediate, to minor. Each time 
a control item changes, a control break is said to occur; the control 
footings for the detail group are printed, and control headings for 
the next detail group are printed before the next detail group is 
printed. A FINAL control break occurs twice during the generation of 
a report, before the first detail line is printed and after the last 
detail line is printed. The most major control break happens least 
often and the most minor control break happens most often. If the 
most minor control field breaks, the control footing for that control 
field is generated, and the control heading for the next detail group 
for that control is generated. If a more major control field breaks, 
the control footings for all fields more minor than that which broke 
are generated, starting with the most minor and continuing up to the 
control footing for the control that broke. The control headings are 
then printed starting with the control field that broke and continuing 
through the most minor control field. An example of a skeleton report 
follows. 
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REPORT HEADING 

PAGE HEADING 

CONTROL HEADING (FINAL) 

CONTROL HEADING (MAJOR) 

CONTROL HEADING (MINOR) 

DETAIL GROUP 



CONTROL FOOTING (MINOR) (control break occurred) 
CONTROL HEADING (MINOR) 
DETAIL GROUP 



CONTROL FOOTING (MINOR) 

CONTROL FOOTING (MAJOR) 

CONTROL HEADING (MAJOR) 

CONTROL HEADING (MINOR) 
DETAIL GROUP 



(control break occurred) 



CONTROL FOOTING (MINOR) 
CONTROL FOOTING (MAJOR) 
CONTROL FOOTING (FINAL) 
PAGE FOOTING 
REPORT FOOTING 



(control break occurred) 



Within a report file, more than one report can be written. If more 
than one report is written in a file, the names of all the reports 
must be specified in the REPORTS clause of the file description entry, 
and a unique code must be specified for each report by means of the 
CODE clause in the Report Description of each report. The code must 
also be identified in the SPECIAL-NAMES section of the Environment 
Division. 

To print one of the reports within a report file, you enter the 

filename and the code of the desired report into the print queue using 

the PRINT command and specifying the code with the REPORT switch, as 
follows: 

PRINT file-specif ier/REPORT:code 

Only the first 12 characters of the code will be accepted in the PRINT 
command string. 

Included in the description of a report are the number of lines on a 
report page, where headings should begin on the page, where footings 
should end, the column on the page where each item in a report group 
should be placed, and the number of lines which should be left between 
report groups. 

To cause a report to be printed, in addition to specifying its format 
and data in the Data Division, you must include certain verbs in the 
Procedure Division. These verbs are: INITIATE, which initializes the 
report and sets sum counters to zero; GENERATE, which causes report 
groups to be generated on specified control breaks; and TERMINATE, 
which ends the report. An additional statement, USE BEFORE REPORTING, 
causes programmer-specified procedure to be performed before a report 
group is produced. 
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4.7 QUALIFICATION 

Any data item that is to be referenced must be uniquely identified. 
This unique identification can be achieved by the assignment of a 
unique name to each item. However, in many applications this is 
tedious and inconvenient (1) because of the large number of names 
required, and (2) because items containing the same type of 
information in different records would have different names. 
Therefore, qualification is introduced to allow similar items and 
certain records to have identical names. 

Qualification means giving enough information about the item to 
specify it uniquely. In COBOL, this information is the name of the 
group items containing it, in order of increasing inclusiveness. It 
is not necessary to name each group containing it, but only enough 
groups so that no other item with the same name as the original item 
could be identically qualified. It is also unnecessary to name each 
successively higher group containing the item until a unique 
qualification is made. Any set of names that uniquely describe the 
item is sufficient. 

Example: 

01 RECORD-1. 01 RECORD-2. 

02 ITEM-1. 02 ITEM-2. 

03 SUB-ITEM. 03 SUB-ITEM. 

04 FIELD PIC X. 04 FIELD PIC X. 

FIELD in the left-hand example can be referenced uniquely in any of 
the following ways: 

FIELD OF SUB-ITEM OF ITEM-1 OF RECORD-1. 

FIELD OF SUB-ITEM OF ITEM-1. 

FIELD OF SUB-ITEM IN RECORD-1. 

FIELD IN ITEM-1 OF RECORD-1. 

FIELD IN RECORD-1. 

FIELD IN ITEM-1. 

The connectives OF and IN are equivalent and may be used 
interchangeably. 

The only data items which need to have unique names are level-77 items 
and records not associated with files, since they are not contained in 
any higher level data structure. Records associated with files may be 
qualified by the file name, as may any item contained within the 
record. File names must be unique. 

Level-66 items may be qualified only (1) by the name of the record 
with which they are associated and (2) by the name of any file with 
which that record is associated. 



4.8 SUBSCRIPTING AND INDEXING 

It may sometimes be more convenient for you to specify a set of data 
values as a table rather than assign a name to each element of the 
set. A table (or array) is a set of homogeneous items stored together 
in memory for use by the program. You define the table elements in 
the program by specifying an OCCURS clause in the description of a 
data item. The data item thus defined represents not one item but a 
set of items having the identical format. Subscripting and indexing 
are used to refer to one of the elements of the set. In DIGITAL 
COBOL-74, subscripting and indexing are identical in use and can be 
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used interchangeably. However, the manner in which they are defined 
differs. Subscripting is defined simply by the fact that an item has 
an OCCURS clause in its description. For example, 

01 RATE-TABLE. 

02 VOLUME OCCURS 25 TIMES. 

describes VOLUME as 25 elements of RATE-TABLE. If you wish to refer 
to one of the elements of this set you must qualify the data-name with 
a subscript. Thus, VOLUME (10) is the tenth element (or occurrence) of 
VOLUME. A subscript can be either an integer or a data-name to which 
an integer value has been assigned. Thus, when DIST has been assigned 
to value 10, VOLUME (DIST) is the same as VOLUME (10). 

To specify indexing you must add the INDEXED BY option to the OCCURS 
clause. Thus, 

01 RATE-TABLE. 

02 VOLUME OCCURS 25 TIMES INDEXED BY IND. 

defines VOLUME as 25 elements of the table and defines IND as the 
index by which each element of the table can be indexed; that is, 
VOLUME (IND) is an element in the table. The index-name IND is 
treated exactly like the data-name DIST because the compiler 
recognizes an index-name as being exactly the same as a data-name. An 
item defined as an index in an OCCURS clause has an implicit usage of 
INDEX, and is equivalent to a data item that is declared USAGE INDEX. 
However, this usage is included in DIGITAL COBOL for compatibility 
with other compilers because an item whose usage is INDEX (implicit or 
explicit) is treated as if its usage were COMPUTATIONAL. In fact, a 
data-name that is used as a subscript can be explicitly declared as 
USAGE INDEX; it will be treated as a COMPUTATIONAL data item by the 
compiler . 

COBOL-74 tables can be one, two, or three dimensions. The number of 
dimensions is defined by the number of subscripts or indexes required 
to refer to an individual item. For example, 

C(l,3) 

represents the item located in the first row and third column of a 
2-dimensional table which is defined by the Data Division entries 

01 TABLEA. 

02 ROW OCCURS 20 TIMES. 

03 COLUMN OCCURS 5 TIMES. 

The subscript/index must be enclosed in parentheses and must appear 
after the data-name. A space between the data-name and the 
parentheses is optional. Multiple subscripts/indexes are separated by 
a comma or by a space. No spaces can appear immediately following the 
left parenthesis or immediately preceding the right parenthesis. When 
referring to elements in multi-dimensional tables, subscript/indexes 
are written from left to right in the order of major (subscript/index 
varying least rapidly), intermediate, and minor (subscript/index 
varying most rapidly) . The major index corresponds to the item 
written with the smallest level-number, that is, the most inclusive 
item. As an illustration, consider a table having a major element 
occurring 10 times, an intermediate element occurring 5 times within 
each occurrence of the major element, and a minor element occurring 3 
times within each intermediate element. The last major element of the 
table is referred to by the subscript form (10,1,1), while the final 
element of the table is referred to by (10,5,3). 



4-10 January 1980 



THE DATA DIVISION 



NOTE 



DATA DIVISION entries are limited to 4680 data items 
as you define them. Refer to Section 13.4.4, for a 
description of this restriction. 

The subscript/index must be enclosed in parentheses and must appear 
after the data-name. A space between the data-name and the 
parentheses is optional. Multiple subscripts/indexes are separated by 
a comma or by a space. No spaces can appear immediately following the 
left parenthesis or immediately preceding the right parenthesis. When 
referring to elements in multi-dimensional tables, subscript/indexes 
are written from left to right in the order of major (subscript/index 
varying least rapidly) , intermediate, and minor (subscript/index 
varying most rapidly) . The major index corresponds to the item 
written with the smallest level-number, that is, the most inclusive 
item. As an illustration, consider a table having a major element 
occurring 10 times, an intermediate element occurring 5 times within 
each occurrence of the major element, and a minor element occurring 3 
times within each intermediate element. The last major element of the 
table is referred to by the subscript form (10,1,1), while the final 
element of the table is referred to by (10,5,3) . 

There are two forms of subscripting/indexing: direct and relative. 
Direct subscripting/indexing means that the subscript/index refers 
directly to the desired element. Relative subscripting/indexing means 
that the element of the table is referred to indirectly by a 
subscript/index to which an integer is added or subtracted. The form 
for direct subscript/indexing is shown in Figure 4-1. 



data-name ( {^script I (.subscript) 
• j inc j ex ( | , index I 



MR-S-581-80 



Figure 4-1: Direct Subscripting/Indexing 

In relative subscripting/indexing, the subscript/index is followed by 
the operator plus (+) or minus (-) followed by an unsigned integer 
numeric literal. The operator plus (+) or minus (-) must be delimited 
by spaces. The subscript/index, the operator, and the numeric literal 
must follow the data-name and must be enclosed in parentheses. The 
form for relative subscripting/indexing is shown in Figure 4-2. 



MR-S-582-80 



Figure 4-2: Relative Subscripting/Indexing 
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When you use relative subscripting/indexing, the element of the table 
that you refer to is not the one to which the subscript/index refers, 
but the element to which the subscript/index plus or minus the integer 
refers. That is, if the item 

VOLUME (IND + 2) 

is specified, and IND is set at 3, the fifth occurrence of VOLUME is 
referred to, not the third. However, the value of the subscript/index 
is not changed by relative subscripting/indexing; the value of IND 
remains 3. 

You can also combine direct and relative subscripting/indexing in the 
same statement. For example, if you specify the following data item: 

TABLE (IND, VOL +3) 

the first subscript value is the value of IND and the second subscript 
value is the value of VOL +3. 

When you need to qualify a table element for uniqueness, you should 
use the format for direct subscripting/indexing shown in Figure 4-3. 



data-name 



Lt IN 



data-name-l 



(subscript \ I .subscript 
) index ) \ .index 
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Figure 4-3 Qualified Direct Subscripting/Indexing 
For example, to refer to ANAME in the following sample: 

01 AREC1. 

02 AGROUP1 OCCURS 5. 

3 ASUBGROUP1 OCCURS 10. 

04 ANAME PIC X(5) OCCURS 20. 

you could specify the following: 

ANAME OF ASUBGROUP1 OF AGROUPl OF AREC1 (I, J, 4) 

NOTE 
Subscripts can not be subscripted. 



4.9 DATA DIVISION CLAUSES 

The clauses that make up the Data Division are presented in the 
following pages. The function, syntax, and details of each clause are 
described, and the general format of the clause is included. The 
clauses are presented in the order in which they appear in the general 
formats at the end of this chapter, that is, in the order in which 
they occur in the Data Division. The formats of some clauses contain 
other clauses. When this is the case each clause that is subordinate 
is described separately on succeeding pages. 



4-12 



THE DATA DIVISION 



FILE DESCRIPTION (FD) 



4.9.1 File Description (FD) 



Function 



The File Description (FD) furnishes information concerning the 
physical structure, identification, and record names pertaining to a 
given file. 



General Format 

DATA DIVISION. 



Qfile section . 

FD file-name 

BLOCK CONTAINS ["integer- 1 TO] integer-2 J CHARACTER S 



RECORD CONTAINS [Integer- 3 T0~| integer-4 CHARACTERS'] ■ 



iarpi / RECORD IS ) ( STANDARD ! 
y ^^ ) RECORDS ARE ( \ OMITTED ( 



VALUE OF 



IDENTIFICATION f . (data-name-1 
ID I lb jliteral-1 



DATE-WRITTEN IS 



data-name-2 
literal-2 



USER-NUMBER IS 



data-name-3 
integer-5, integer-6 



DATA 



RECORD IS 
RECORDS ARE 



> data-name-4 [~data-name-5^] 



LINAGE IS < itll'Jll^' 6 ) LINES 
i nteger-7 



LINES AT TOP ^f^T 8 
— j integer-9 



WITH FOOTING AT 



LINES AT BOTTOM 



data-name-7 
integer-8 



data-name-9 
integer-10 



[ ~C0DE-SET IS alphabet-name "1 

{REPORT IS f I — — I 

REPORTS ARE | report-name-1 |_report-name-2j ... 



4-13 



October 1985 



THE DATA DIVISION 



FILE DESCRIPTION (FD) (Cont.) 



RECORDING 



MODE IS [ BYTE MODE] 



200 
556 

DENSITY IS < 800 
1600 
6250 



ASCII 

SIXBIT 

BINARY 

I 

STANDARD-ASCII 
STANDARD ASCII 



PARITY IS {^} 



MR-S-1 272-81 



The clauses shown in the General Format appear in 
on the following pages. 



alphabetical order 



Technical Notes 



1. 



3. 

4. 



5. 



An FD entry must be present for each file-name selected 
the FILE-CONTROL paragraph of the Environment Division. 



in 



All semicolons and commas are optional, 
must terminate with a period. 



The entire FD entry 



The clauses can appear 
Description entry. 



in 



any order within the File 



The ability to place the RECORDING MODE clause in the FD has 
been provided for compatibility with other manufacturers. If 
you specify the RECORDING MODE clause for a file in the FD, 
you cannot also specify it in the File-Control paragraph for 
that file in the Environment Division. Also, if you wish to 
use the RECORDING DENSITY and RECORDING PARITY clauses, you 
must put them in the File-Control paragraph in the 
Environment Division, even if the RECORDING MODE clause is in 
the FD. The description of the RECORDING MODE clause can be 
found in Section 3.1.13. 

The maximum number of files that can be open at one time is 
16. ISAM files count as two files: one index (.IDX) file 
and one data (.IDA) file. However, RMS files (multi-key ISAM 
files that are accessed through RMS) do not count towards 
this total of 16. 
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BLOCK CONTAINS 

4.9.2 BLOCK CONTAINS 

Function 

The BLOCK CONTAINS clause specifies the size of a logical block. 

General Format 
BLOCK CONTAINS ["integer- 1 jo] integer-2 | CHARACTER S I 



MR-S-1 273-81 



Technical Notes 

1. This clause is ignored for RMS files (multi-key indexed files 
that are accessed through RMS) • 

2. If you do not include this clause, or if you specify that 
integer-2 is zero, the file is not organized into logical 
blocks when it is written. Rather, all records are placed in 
the file with no empty space. The file is then considered to 
be "unblocked" or "blocked zero" and is the most efficient 
form of a sequential file on disk. 

3. If you use the RECORDS clause, the block size can be any 
multiple of the RECORD CONTAINS clause, or zero (for variable 
or fixed length records) . 

4. If you use the CHARACTERS option, you specify the logical 
block size in terms of the number of character positions 
required to contain the record. If the recording mode is 
ASCII (that is, all records for the file are described, 
explicitly or implicitly, as USAGE DISPLAY-7) , the compiler 
assumes that the size is specified in terms of ASCII 
characters. If the recording mode is SIXBIT (that is, the 
records for the file are all described, explicitly or 
implicitly, as DISPLAY-6) , the compiler assumes that the size 
is specified in terms of SIXBIT characters. If the recording 
mode is F or V (that is, the data is recorded on the medium 
as EBCDIC characters) , the compiler assumes that the size is 
specified in terms of EBCDIC characters, either fixed- or 
variable-length. When variable-length EBCDIC records are 
used (that is, the recording mode is V), the number of 
records in a block is also variable. If the blocking factor 
is not zero, the number of records in a block is determined 
by dividing the block size in characters by the number of 
characters in the longest record as specified by the FD 
statement. For example, if the FD statement specifies a 
maximum record length of 248 characters and the BLOCK 
CONTAINS 2400 CHARACTERS clause is used, the number of 
records in a block are 9. 
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BLOCK CONTAINS (Cont.) 



5. Integer-1 and integer-2 must be positive integers. If you 
specify only integer-2, it represents the exact size of the 
logical block. If you specify both integer-1 and integer-2, 
integer-1 is ignored and integer-2 is used as the blocking 
factor. 

6. Files whose organizations are RELATIVE or INDEXED must have a 
nonzero blocking factor. 
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CODE-SET 



4.9.3 CODE-SET 



FUNCTION 

The CODE-SET clause specifies the character code set used to represent 
data on the external media. 

General Format 



[" "CO DE-SET IS alphabet-name 1 



Technical Notes 

1. When you specify the CODE-SET clause for a file, you must 
describe all data in that file as USAGE IS DISPLAY. You must 
also describe any signed numeric data with the SIGN IS 
SEPARATE clause. 

2. The alphabet-name clause referenced by the CODE-SET clause 
must not specify the literal phrase. 

3. You may specify the CODE-SET clause only for files not 
residing on mass storage media. 

4. The CODE-SET clause is included only for compatability , since 
ASCII is the only alphabet-name allowed, and ASCII is also 
the default. 

5. If you include the CODE-SET clause, alphabet-name specifies 
the character code convention used to represent data on the 
external media. it also specifies the algorithm for 
converting the character codes on the external media from or 
to the native character codes. This code conversion occurs 
during the execution of an input or output operation. 

6. If you omit the CODE-SET clause, the ASCII character set is 
assumed for data on the external media. 
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4.9.4 DATA RECORD 



Function 



The DATA RECORD clause cross-references the record-name with its 
associated file. 



General Format 



DATA 



RECORD IS 
RECORDS ARE 



data-name-4 data-name 



L« 



■O • 



Technical Notes 

1. This clause is optional because all records in the FD entry 
are assumed to be data records. 

2. All records within a file share the same area. 

3. All record-names must be specified in 01-level data entries 
subordinate to this FD entry. The presence of more than one 
such record-name indicates that the file contains more than 
one type of data record. These records may have different 
descriptions. The order in which they are listed is not 
significant. 
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4.9.5 PD File-name 



Function 



The FD file-name clause identifies the file to which this file 
description entry and the subsequent record descriptions relate. 



General Format 
I FD file- name J 



Technical Notes 

1. This entry must begin each file description. 

2. The file-name must appear in a SELECT statement in the 
File-Control paragraph of the Environment Division. 
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LABEL RECORD 

4.9.6 LABEL RECORD 

Function 

The LABEL RECORD clause specifies whether or not labels are present on 
the file and, if they are, identifies the format of the labels. 

General Format 



asik ifSs'Ll aS D 



record-name-1 



Technical Notes 

1. If you omit the clause, LABEL RECORDS ARE STANDARD is 
assumed. 

2. You should use the OMITTED option when the file has no header 
or trailer labels. 

3. You should use the STANDARD option when the file has header 
and trailer labels that conform to the standard format. If 
the file you are describing is on disk or DECtape, you must 
either specify LABEL RECORDS ARE STANDARD, or omit the clause 
altogether allowing the default to take over. See the VALUE 
OF IDENTIFICATION clause for the association between the 
label and the filename on disk or DECtape. 

The standard label for DECtape and disk is the directory 
block used by the monitor. For magnetic tape, if the file is 
recorded in SIXBIT, the standard label is 78 SIXBIT 
characters in length and is written in a separate physical 
record from the data. If the recording mode is ASCII, the 
label contains 78 ASCII characters, plus carriage return and 
line feed, for a total of 80 characters. Table 4-1 shows the 
contents of each character in a standard label for 
nonrandom-access devices. 

Magnetic tapes are the only devices with ending labels. Each 
ending label is preceded by and followed by an end-of-file 
mark . 

4. Files whose recording mode is F or V (fixed- or variable- 
length EBCDIC) must have LABELS RECORDS ARE OMITTED if they 
are on magnetic tape. If they are on disk or DECtape, they 
are assumed to have DECsystem-10 standard labels. 
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LABEL RECORD (Cont.) 



Table 4-1 
Standard Label for Magtapes 



Characters 


Contents 






1-4 

5-13 

14-21 

22-27 

28-31 

32-41 

42-47 

48-78 
79-80 


HDR1 = Beginning File 
EOF1 = Ending file 
EOV1 = Ending reel 

Value of identification 

Always spaces 

Not used 

Reel number; the first reel is always 0001 

Not used 

Creation date; two characters each for the 
year, month, and day, respectively 

Not used 

Carriage-return/line-feed if file is ASCII (Note 
that this is on the label only; it is not kept 
internally. ) 
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LINAGE 

4.9.7 LINAGE 

Function 

The LINAGE clause specifies the size of a logical page in terms of 
number of lines. It can also specify the size of the top and bottom 
margins on the logical page and the line number, within the page body, 
at which the footing area begins. 

General Format 



LINAGE IS 



data-name-1 
integer-1 



LINES 



LINES AT TOP 



data-name-3 
integer- 3 



WITH FOOTING AT 



LINES AT BOTTOM 



data-name-2 
integer-2 



data-name-4 
integer-4 



MR-S-1 278-81 



Technical Notes 

1. LINAGE is valid only for sequential files. However, the 
LINAGE clause cannot be specified for sequential files OPENed 
in the EXTEND mode. 



2. 



3. 



4. 



5. 



The logical page size is the sum of the values referenced by 
each phrase except the FOOTING phrase. (There is no 
necessary relationship between the size of the logical page 
and the size of a physical page.) If the LINES AT TOP or 
LINES AT BOTTOM phrases are not specified, the values for 
these functions are zero. 

Data-name-1, data-name-2, data-name-3 and data-name-4 must 
reference elementary unsigned numeric integer data items. 
The value of integer-1 must be greater than zero; the value 
of integer-2 must not be greater than integer-1; the value of 
integer-3 and integer-4 can be zero. 

The number of lines on the logical page is equal to the value 
of integer-1 or the data item referenced by data-name-1. The 
page body is that part of the logical page in which lines can 
be written and/or spaced. 



The line number within 
area begins is equal 
item referenced by da 
greater than the val 
referenced by data-name 
the logical page betwee 
integer-2 (or the data 
the line represented 
item referenced by data 



the page body at which the footing 
to the value of integer-2 or the data 
ta-name-2. The value must not be 
ue of integer-1, or the data item 
-1. The footing area is the area of 
n the line represented by the value of 
item referenced by data-name-2) and 
by the value of integer-1 (or the data 
-name-1) inclusive. 
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4.9.8 REPORT 

Function 

The REPORT clause specifies the name of each report that is associated 
with the file. 

General Format 



{ UpoRTs 'aRe} report-name-l [report-name-2] 



Technical Notes 

1. This clause is optional; it is used only when Report-Writer 
statements cause output to be written on the file. 

2. Report-name-1 and report-name-2 must be the names of Report 
Descriptor items in the Report Section. 

3. If you use this clause, you may omit the data record 
description because the name of the data record is not 
referred to directly in the Procedure Division. When the 
data record description is omitted, the compiler 
automatically assumes a 132-character record. 
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4.9.9 SD File-name 



Function 



The SD file-name clause identifies the sort file to which this file 
description entry and the subsequent record description relate. 



General Format 



SD file-name 



[~ REC0RD CONTAINS Qinteger-1 ToT) integer-2 CHARACTERS 



DATA 



RECORD 
RECORDS 



ARF > data-name-1 ldata-name-2 '.\ 



{ record-description-entry | 



Technical Notes 

1. The SD entry must begin each sort file description. 

2. The file-name must appear in a SELECT statement in the 
FILE-CONTROL paragraph of the Environment Division. 

3. The DATA RECORD and RECORD CONTAINS clauses are the only 
descriptive clauses allowed. 
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4.9.9 REPORT 

Function 

The REPORT clause specifies the name of each report that is associated 
with the file. 

General Format 



( report is ) + . r t\ 

| REPORT S ARE \ re P ort ~ r)ame - 1 |_report-name-2j 



Technical Notes 

1. This clause is optional; it is used only when Report-Writer 
statements cause output to be written on the file. 

2. A file described with a REPORT clause cannot be referenced by 
any input-output statements except the OPEN and CLOSE 
statements. 

3. Report-name-1 and report-name-2 must be the names of Report 
Descriptor items in the Report Section. 

4. If you use this clause, you can omit the data record 
description because the name of the data record is not 
referred to directly in the Procedure Division. When the 
data record description is omitted, the compiler 
automatically assumes a 132-character record. 
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SD File-name 

4.9.10 SD File-Name 

Function 

The SD file-name clause identifies the sort file to which this file 
description entry and the subsequent record description relate. 

General Format 

SD file-name 

f ~REC0RD CONTAINS Qinteger-1 ipf] integer-2 CHARACTERS'" 1 

nnxA ( record is ) . . . n . r\ 

DATA \ r|7ords ARE I data ~ name ~l ldata-name-2 I 
{record-description-entry} 

Technical Notes 

1. The SD entry must begin each sort file description. 

2. The file-name must appear in a SELECT statement in the 
FILE-CONTROL paragraph of the Environment Division. 

3. The DATA RECORD and RECORD CONTAINS clauses are the only 
descriptive clauses allowed. 
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/USER-NUMBER 

4.9,11 VALUE OF IDENTIFICATION/DATE-WRITTEN/USER-NUMBER 

Function 

The VALUE OF IDENTIFICATION clause provides specific data for an item 
within the label records associated with a file. The VALUE OF 
DATE-WRITTEN clause specifies a date which the file label must contain 
to be processed by the program. The VALUE OF USER-NUMBER clause 
provides a project-programmer number to be checked against the file 
label before processing. 

General Format 



VALUE OF 



IDENTIFICATION 
ID 



DATE-WRITTEN IS 



IS 



! data-name- 
literal-1 



1 



data-name-2 
literal-2 



USER-NUMBER IS 



data-name-3 
integer-1, integer-2 



Technical Notes 

1. ID can be substituted for IDENTIFICATION. 



2. The VALUE OF IDENTIFICATION clause is required only if label 
records are standard; it is ignored in all other cases. The 
VALUE OF DATE-WRITTEN and the VALUE OF USER-NUMBER are always 
optional . 

3. The three clauses can be written in any order, but only one 
of each can be specified for a file. 



IDENTIFICATION represents the file-name and 
file with standard labels. If a data-name 
must be associated with a DISPLAY, DISPLAY-6 
DISPLAY-9 data item nine characters in leng 
is specified, it must be a nonnumeric litera 
in length. The first six characters a 
and last three characters ar 
The programmer must provide spac 
this convention. The literal 
of spaces. The period which 
between the file-name and the extension must 
in the VALUE OF IDENTIFICATION clause. 



file-name, 
extension, 
conform to 
exclusively 



extension of a 

is specified, it 

, DISPLAY-7, or 

th. If a literal 

1 nine characters 

re taken as the 

e taken as the 

es as required to 

cannot consist 

the system prints 

not be included 
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VALUE OF IDENTIFICATION/DATE-WRITTEN 
/USER-NUMBER (Cont.) 

Examples : 

a. VALUE OF IDENTIFICATION IS "COST TST" 

b. VALUE OF IDENTIFICATION IS FILE-1-NAME 

(WORKING-STORAGE SECTION.) 



77-FILE-l-NAME PICTURE IS X(9). 



DATE-WRITTEN 
STANDARD la 
it must be a 
DISPLAY-9 d 
is specified 
in length, 
next two as 
clause is 
instead, the 

Examples: 



repres 
bels) 
ssociat 
ata it 
, it mu 
The f 
month, 
ignored 

curren 



ents the 
was writ 
ed with 
em six c 
st be a 
irst two 
and the 

when 
t date i 



date that a 
ten. If a da 
a DISPLAY, DI 
haracters in 
nonnumeric li 

characters a 
last two as d 
the file is 
s used. 



mag tape 
ta-name i 
SPLAY-6, 
length, 
teral six 
re taken 
ay. The 
OPENed 



file (with 
s specified, 
DISPLAY-7 or 
If a literal 
characters 
as year, the 
DATE-WRITTEN 

for output; 



a. VALUE OF IDENTIFICATION IS "RANDOMXYZ" , DATE-WRITTEN IS 
810112 



b. VALUE OF IDENTIFICATION IS "DATA 
FILE-1-DATE 



DATE-WRITTEN IS 



(WORKING-STORAGE SECTION.) 

77 FILE-1-DATE PICTURE IS 9(6). 

USER-NUMBER represents the project-programmer number of the 
owner of a disk file; it is ignored for all other devices, 
Data-name-3 must be a COMPUTATIONAL item of 10 or fewer 
digits in which the project-programmer number is stored. 
Integer-1 and integer-2 are numeric literals of six or fewer 
digits that are treated as octal. Integer-1 is the project 
number and integer-2 is the programmer number. 

For input files the VALUES specified are checked against the 
file when it is opened. ISAM files are checked as soon as 
your program is run. For output files, the VALUE OF 
IDENTIFICATION is written when the file is opened. If the 
specified values do not match a file on the selected medium, 
a run-time error message is issued. 

If the access mode is INDEXED and data-name-1 is used in the 
VALUE OF IDENTIFICATION clause, data-name-1 must contain the 
filename and extension of the index-file for the 
indexed-sequential file being referenced. The contents of 
data-name-1 can not be altered during program execution. You 
need not specify the identification for the data file of an 
indexed-sequential file because this identification is stored 
in the index file. 
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4.9.11 DATA DESCRIPTION ENTRY 

Function 

A data description entry describes a particular item of data 

General Format 

FORMAT 1: 



, , . ( data-name-1 1 

level-number < pj, , r R ( 

" REDEFINES data-name-2 J 



PICTURE 
PIC 



IS character-string 



COMPUTATIONAL 
COMP 

COMPUTATIONAL- 1 
COMP-1 

C0MPUTATI0NAL-3 
COMP- 3 
USAGE IS < DISPLAY 

DISPLAY-6 

DISPLAY-7 

DISPLAY-9 

INDfX 

DATABASE- KEY 

DBKEY 



|__SIGN IS | TRA?LIN G I Q EPARATE CHARACTER] 



occurs {|"J^iTrMF? tege 

■ — Mnteger-2 TIMES 



ASCENDING 
DESCENDING 



r-2 TIMES DEPENDING ON data-name-3 



ldata-name-5J 



KEY IS data-name-4 data-name-5 



INDEXED BY index-name-1 [jndex-name-2] 



SYNCHRONIZED 
SYNC 



LEFT 
RIGHT 



JUSTIFIED S RIGHT 



JUST 



LEFT 
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DATA DESCRIPTION ENTRY (Cont.) 



FORMAT 2 



66 data-name-1 RENAMES data-name-2 



THROUGH ( . . namo , 
T ., R[ . T > data-name-3 



FORMAT 3: 



88 condition-name 



(value IS ) 

( VALUES ARE) 



1 iteral-1 



THROUGH 
THRU 



literal-2 



1 iteral-3 



THROUGH 
THRU 



literal-4 



The clauses shown in the General Format appear in alphabetical order 
along with the other Data Division clauses on the following pages. 

Technical Notes 

1. Each data description entry must be terminated by a period. 
All semicolons and commas are optional. 

2. The clauses may appear in any order, with one exception: the 
REDEFINES clause, when used, must immediately follow the 
data-name being redefined. 

3. The VALUE clause must not appear in a data description entry 
which also contains an OCCURS clause, or in an entry which is 
subordinate to an entry containing an OCCURS clause. The 
latter part of this rule does not apply to condition-name 
(level-88) entries. 

4. The PICTURE clause must be specified for every elementary 
item, except a USAGE INDEX, COMP-1 item, DATABASE-KEY, or 
DBKEY. 

5. The clauses SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN 
ZERO can be specified only at the elementary level. 
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4.9.12 BLANK WHEN ZERO 



Function 



The BLANK WHEN ZERO clause causes the blanking of an item when its 
value is zero. 

General Format 

[JLANK WHEN ZERO] ] 



Technical Notes 

1. When the BLANK WHEN ZERO option is used and the item is zero, 
the item is set to blanks. 

2. BLANK WHEN ZERO can be specified only at the elementary level 
and only for numeric or numeric-edited items whose usage is 
DISPLAY-6, DISPLAY-7, or DISPLAY-9. 

3. An asterisk used as a zero suppression symbol in a PICTURE 
clause may not appear in the same entry with the BLANK WHEN 
ZERO clause. More comprehensive editing features are 
available in the PICTURE clause. 

4. When the BLANK WHEN ZERO clause is used for an elementary 
item whose PICTURE is numeric, the category of the item is 
considered to be numeric-edited. 
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4.9.13 Condition-name (level-88) 



Function 

The condition-name (level-88) entry assigns a name to a value or range 
of values of the associated data item. 



General Format 



88 condition-name 



VALUE IS 
VALUES ARE 



1 iteral-1 



THROUGH 
THRU 



literal-2 



1 iteral-3 



THROUGH 
THRU 



1 iteral-4 



Technical Notes 



Each condition-name requires a separate level-88 entry. This 
entry contains the name assigned to the condition, and the 
value or values associated with that condition. 
Condition-name entries must immediately follow the data 
description entry with which the condition-name is to be 
associated. 

A condition-name entry can be associated with any elementary 
or group item except 

a. another condition-name entry, or 

b. a level-66 item. 

Some examples of possible level-88 entries are given below. 

a. 05 B-FIELD PICTURE IS 99. 

88 Bl VALUE IS 3. 

88 B2 VALUES ARE 50 THRU 69. 

88 B3 VALUES ARE 20, 25, 28, 31 THRU 37. 

88 B4 VALUES ARE 70 THRU 75, 80 THRU 85, 90 THRU 95. 

b. 02 C-FIELD PICTURE IS XXX. 

88 C-YES VALUE IS "YES". 
88 C-NO VALUE IS "NO ". 

The data item with which the condition-name is associated is 
called a conditional variable. A conditional variable may be 
used to qualify any of its condition-names. If references to 
a conditional variable require indexing, subscripting, or 
qualification, then reference to its associated 
condition-names also require the same combination of 
indexing, subcripting, or qualification. 
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Condition-name (level-88) (Cont.) 

5. A condition-name is used' in conditional expressions as an 
abbreviation for the related condition. Thus, if the above 
Data Division entries (Note c) are used, the statements in 
each pair below are functionally equivalent. 

Relational Expression Condition-Name 

a. IF B-FIELD IS EQUAL TO 3 IF Bl 

b. IF B-FIELD IS GREATER THAN IF B2 

49 AND LESS THAN 70 

C IF B-FIELD IS EQUAL TO 20 OR IF B3 

EQUAL TO 25 OR EQUAL TO 28 
OR GREATER THAN 30 AND 1 
LESS THAN 38 

d. IF B-FIELD IS GREATER THAN 69 IF B4 

AND LESS THAN 76 OR GREATER 

THAN 79 AND LESS THAN 86 OR 
GREATER THAN 8 9 AND LESS 
THAN 96 

e. IF C-FIELD IS EQUAL TO "YES".. IF C-YES 

6. Literal-1 must always be less than literal-2, and literal-3 
less than literal-4. The values given must always be within 
the range allowed by the format given for the conditional 
variable. For example, any condition-name values given for a 
conditional variable with a PICTURE of 999 must be in the 
range of 000 to 999. 
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Data-name/FILLER 

4.9.14 Data-name/FILLER 

Function 

A data-name specifies the name of the data being described. The word 
FILLER specifies an unreferenced portion of the logical record. 

General Format 



n , i data-name-1 V 
evel-number < FT . . r R < 



Technical Notes 

1. A data-name or the word FILLER must immediately follow the 
level-number in each data description entry. 

2. A data-name must be composed of a combination of the 
characters A through Z, through 9, and the hyphen. It must 
contain at least one alphabetic character and must not exceed 
30 characters in length. It must not duplicate a COBOL 
reserved word. Refer to Section 1.2.3.2, User-Defined Words, 
for further information. 

3. The key word FILLER is used to name an unreferenced item in a 
record (that is, an item to which the programmer has no 
reason for assigning a unique name). A FILLER item cannot, 
under any circumstances, be referenced directly in a 
Procedure Division statement. However, it may be indirectly 
referenced by referring to a group-level item of which the 
FILLER item is a part. FILLER can be used at any level, 
including the 01 level. 
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4.9.15 JUSTIFIED 



Function 



The JUSTIFIED clause specifies nonstandard positioning of data within 
a receiving data item. 

General Format 



I JUSTIFIED I \ RIGHT 
| JUST I i LEFT 



Technical Notes 

1. The JUSTIFIED clause cannot be specified at a group level, or 
for numeric or edited items. If neither RIGHT nor LEFT is 
specified, RIGHT is assumed. 

2. An item subordinate to one containing a VALUE clause cannot 
be JUSTIFIED. 

3. DISPLAY, DISPLAY-6, DISPLAY-7 and DISPLAY-9 items can be 
JUSTIFIED. 

4. The standard rules for positioning data within an elementary 
data item are as follows: 

a. The receiving data item is described as numeric or 
numeric-edited (see definition in Notes 7 and 10 under 
the PICTURE clause, Section 4.9.18.) 

A numeric or numeric-edited item is justified according 
to the following rules, thus the JUSTIFIED clause cannot 
be used. 

The data is aligned by decimal point and is moved to the 
receiving character positions with zero fill or 
truncation on either end as required. 

If an assumed decimal point is not explicitly specified, 
the data item is treated as if it had an assumed decimal 
point immediately following its rightmost character, and 
the sending data is aligned according to this decimal 
point. 

b. The receiving data item is described as alphanumeric or 
alphabetic (see definition in Notes 6 and 8 under the 
PICTURE clause, Section 4.9.18). 

The data is moved to the receiving character positions 
and aligned at the leftmost character position with space 
fill or truncation at the right end as required. 
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5. When a receiving item is described as JUSTIFIED LEFT, 
positioning occurs as in 4a above. 

6. When a receiving data item is described with the JUSTIFIED 
RIGHT clause and is larger than the sending data item, the 
data is aligned at the rightmost character position in the 
receiving item with space fill at the left end. 

When a receiving data item is described with the JUSTIFIED 
RIGHT clause and is smaller than the sending data item, the 
data is aligned at the rightmost character position in the 
receiving item with truncation at the left end. 

Examples are given below. 

03 ITEM-A PICTURE IS 

X(8) VALUE IS "ABCDEFGH" . 

03 ITEM-B PICTURE IS 

X(4) VALUE IS "WXYZ" . 

03 ITEM-C PICTURE IS X(6). 

03 ITEM-D PICTURE IS X(6). 
JUSTIFIED RIGHT. 



A 


B 


C 


D 


E 


F 



Procedure Division statement Contents of Receiving Field 
MOVE ITEM-A TO ITEM-C. 
MOVE ITEM-A TO ITEM-D. 
MOVE ITEM-B TO ITEM-C. 
MOVE ITEM-B TO ITEM-D. 



c 


D 


E 


F 


G 


H 



W 


X 


Y 


Z 


A 


A 



A 


A 


W 


X 


Y 


Z 
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4.9.16 Level-number 



Function 



The level-number shows the hierarchy of data within a logical record. 
In addition, special level-numbers are used for condition-names 
(level-88) , noncontiguous Working-Storage items (level-77) , and the 
RENAMES clause (level-66) . 

General Format 



i. wfll „ lim k«^ / data-name-l\ 
level-number iniiFR ( 



Technical Notes 

1. A level-number is required as the first element in each data 
description entry. 

2. Level-numbers may be placed anywhere on the source line, at 
or after margin A. 

3. Level-number 88 is described under "condition-name 
(level-88)", Section 4.9.13, and level-number 66 is described 
under "RENAMES (level-66)", Section 4.9.20. 

4. A further description of level-numbers and data hierarchy can 
be found in the introduction to this chapter. 
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Function 

The OCCURS clause eliminates the need for separate entries for 
repeated data, and supplies information required for the application 
of subscripts and indexes. 

General Format 

OCCURS {integer-1 TO integer-2 TIMES DEPENDING ON data-name-1 
(integer-3 TIMES 

1 I DESCENDI NG ! KEY IS data-name-2 [data- name -3] 
[ INDEXED BY index-name-1 [i ndex-name-2] . . . 1 

Technical Notes 

1. This clause cannot be specified in a data description entry 
that has a 66 or 88 level-number, or in one that contains a 
VALUE clause. 

2. The OCCURS clause is used to define tables or other 
homogeneous sets of repeated data. Whenever this clause is 
used, the associated data-name and any subordinate data-names 
must always be subscripted or indexed when used in all 
Procedure Division statements. 

3. All clauses given in a data description that includes an 
OCCURS clause apply to each repetition of the item. 

4. The integers must be positive. If integer-1 is specified, it 
must have a value less than integer-2. No value of a 
subscript can exceed integer-2 or integer-3; in addition, if 
the DEPENDING option is specified, no subscript can exceed 
the value of data-name-1 at the time of subscripting. 

5. If the DEPENDING option is specified, the integer-1 TO phrase 
must be included. The DEPENDING option must immediately 
follow TIMES. Data-name-1 must be a positive integer, and 
for efficiency should be either USAGE INDEX or USAGE COMP. 
It cannot be subscripted, and if the clause appears in the 
Linkage Section, data-name-1 must be either USAGE INDEX or 
USAGE COMP. 

6. The value of data-name-1 is the count of the number of 
occurrences of the item described by the OCCURS clause; its 
value must not exceed integer-2 or integer-3. 
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4.9.17 Level-Number 



Function 



The level-number shows the hierarchy of data within a logical record. 
In addition, special level-numbers are used for condition-names 
(level-88) , noncontiguous Working-Storage items (level-77) , and the 
RENAMES clause (level-66) . 

General Format 

, . . f data-name- l\ 

level-number < pj|_ LE R { 

MR-S-1 287-81 



Technical Notes 

1. A level-number is required as the first element in each data 
description entry. 

2. Level-numbers can be placed anywhere on the source line, at 
or after margin A. 

3. Level-number 88 is described under "condition-name 
(level-88) ", Section 4.9.14, and level-number 66 is described 
under "RENAMES (level-66)", Section 4.9.21. 

4. A further description of level-numbers and data hierarchy can 
be found in the introduction to this chapter. 
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4.9.18 OCCURS 

Function 

The OCCURS clause eliminates the need for separate entries for 
repeated data, and supplies information required for the application 
of subscripts and indexes. 

General Format 



OCCURS 



integer-1 TO integer-2 
integer-3 TIMES 



TIMES DEPENDING ON data-name-1 



1 DESCENDIN G 1 KEY IS dat a_name - 2 [data- name -3] 
INDEXED BY index-name-1 [i ndex-name-2] ...J 



Technical Notes 

1. This clause cannot be specified in a data description entry 
that has a 66 or 88 level-number, or in one that contains a 
VALUE clause. 

2. The OCCURS clause is used to define tables or other 
homogeneous sets of repeated data. Whenever this clause is 
used, the associated data-name and any subordinate data-names 
must always be subscripted or indexed when used in all 
Procedure Division statements. 



3. 
4. 



5. 



All clauses given in a data description that includes 
OCCURS clause apply to each repetition of the item. 



an 



The integers must be positive. If integer-1 is specified, it 
must have a value less than integer-2. No value of a 
subscript can exceed integer-2 or integer-3; in addition, if 
the DEPENDING option is specified, no subscript can exceed 
the value of data-name-1 at the time of subscripting. 

When a receiving item is a variable length data item and 
contains the object of the DEPENDING ON clause, the maximum 
length of the item is used, not the actual length of the 
item. 



6. If the DEPENDING option is specified, the integer-1 TO phrase 
must be included. The DEPENDING option must immediately 
follow TIMES. Data-name-1 must be a positive integer, and 
for efficiency should be either USAGE INDEX or USAGE COMP. 
It cannot be subscripted, and if the clause appears in the 
Linkage Section, data-name-1 must be either USAGE INDEX or 
USAGE COMP. 

7. The value of data-name-1 is the count of the number of 
occurrences of the item described by the OCCURS clause; its 
value must not exceed integer-2 or integer-3. 
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, represents an insertion comma 1 

. represents an actual decimal point 1 

B represents an insertion blank 

represents an insertion zero 

/ represents an insertion slash 

e. Symbols representing editing sign-control symbols 

+ represents an editing plus sign 
- represents an editing minus sign 
CR represents an editing Credit symbol 
DB represents an editing Debit symbol 

The plus and minus signs (+ and -) float when more than 
one appear, and replace the rightmost leading zeroes. 

f. Consecutive repetitions of a picture symbol can be 
abbreviated to the symbol followed by (n) , where n 
indicates the number of occurrences. However, some 
editing symbols may not be used more than once in a data 
item: "S", "V", " . " , "CR", and "DB" . 

4. A maximum number of 30 symbols can appear in a picture 
string. Note that the number of symbols in a picture string 
and the size of the item represented are not necessarily the 
same. There are two reasons for this discrepancy. First, 
the abbreviated form for indicating consecutive repetitions 
of a symbol may result in fewer symbols in the picture string 
than character positions in the item being described. For 
example, a data item having 40 alphanumeric character 
positions can be described by a picture string of only 5 
symbols: 

PICTURE IS X(40) . 

The second reason is that some symbols are not counted when 
calculating the size of the data item being described. These 
symbols include the V (assumed decimal point) , P (decimal 
point scaling position) , and S (arithmetic sign) ; these 
symbols, with one exception, do not represent actual physical 
character positions within the data item. The exception 
involves the use of the SIGN IS SEPARATE clause, which causes 
the S (arithmetic sign) to take up a character position. If 
the clause is omitted, the character-string 

S999V99 

represents a 5-position data item. However, if the SIGN IS 
SEPARATE clause is included, the character-string would 
represent a 6-position item. 

Other size restrictions for numeric and numeric-edited items 
are given under the appropriate headings below. 

5. There are five categories of data that can be described with 
a PICTURE clause: alphabetic, numeric, alphanumeric, 
alphanumeric-edited, and numeric-edited. A description of 
each category is given in the notes below. 



1 If the DECIMAL-POINT IS COMMA clause appears in the SPECIAL-NAMES 
paragraph, the function of the comma and decimal point is reversed. 
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6. Definition of an Alphabetic Item 

a. Its picture string may contain only the symbol A or B. 

b. It may contain only the 26 letters of the alphabet and 
the space. 

7. Definition of a Numeric Item 

a. Its picture string may contain only the symbols 9, P, S, 
and V. It must contain at least one 9. 

The picture string must have from 1 to 18 digit 
positions. 

b. It may contain only the digits through 9 and an 
operational sign. 

8. Definition of an Alphanumeric Item 

a. Its picture string can consist of all Xs, or a 
combination of the symbols A, X, and 9 (except all 9s or 
all As) . The item is treated as if the character-string 
contained all Xs. 

b. It,s contents can be any combination of characters from 
the complete character set (see Section 1.2.2). 

9. Definition of an Alphanumeric-Edited Item 

a. Its picture string can consist of any combination of As, 
Xs, or 9s (it must contain at least one A or one X) , plus 
at least one of the symbols B, or /. 

b. Its contents can be any combination of characters from 
the complete character set. 

10. Definition of a Numeric-Edited Item 

a. Its picture string must contain at least one of the 
following editing symbols: 

, . * + - B CR DB $ 

It may also contain the symbols 9, V, or P. If you use 
the CURRENCY SIGN IS clause, the new currency sign you 
specify replaces the $ in the above list. 

The allowable sequences are determined by certain editing 
rules for each symbol and can be found in Note 11. 

The picture string must have from 1 to 18 digit 
positions. 

b. The contents can be any combination of the digits 
through 9 and the editing characters. 
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, represents an insertion comma ' 

. represents an actual decimal point 1 

B represents an insertion blank 

represents an insertion zero 

/ represents an insertion slash 

e. Symbols representing editing sign-control symbols 

+ represents an editing plus sign 
- represents an editing minus sign 
CR represents an editing Credit symbol 
DB represents an editing Debit symbol 

The plus and minus signs (+ and -) float when more than 
one appear, and replace the rightmost leading zeroes. 

f. Consecutive repetitions of a picture symbol can be 
abbreviated to the symbol followed by (n) , where n 
indicates the number of occurrences. However, the 
following editing symbols can not be used more than once 
in a data item: "S n , "V", ".", "CR", and "DB". 

4. A maximum number of 30 symbols can appear in a picture 
string. Note that the number of symbols in a picture string 
and the size of the item represented are not necessarily the 
same. There are two reasons for this discrepancy. First, 
the abbreviated form for indicating consecutive repetitions 
of a symbol can result in fewer symbols in the picture string 
than character positions in the item being described. For 
example, a data item having 40 alphanumeric character 
positions can be described by a picture string of only 5 
symbols: 

PICTURE IS X(40) . 

The second reason is that some symbols are not counted when 
calculating the size of the data item being described. These 
symbols include the V (assumed decimal point) , P (decimal 
point scaling position), and S (arithmetic sign); these 
symbols, with one exception, do not represent actual physical 
character positions within the data item. The exception 
involves the use of the SIGN IS SEPARATE clause, which causes 
the S (arithmetic sign) to take up a character position. If 
the clause is omitted, the character-string 

S999V99 

represents a 5-position data item. However, if the SIGN IS 
SEPARATE clause is included, the character-string would 
represent a 6-position item. 

The total picture character-strings for an 01 data item 
cannot exceed 262,143 characters. 

Other size restrictions for numeric and numeric-edited items 
are given under the appropriate headings below. 

5. There are five categories of data that can be described with 
a PICTURE clause: alphabetic, numeric, alphanumeric, 



1 If the DECIMAL-POINT IS COMMA clause appears in the SPECIAL-NAMES 
paragraph, the function of the comma and decimal point is reversed. 
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alphanumeric-edited, and numeric-edited. A description of 
each category is given in the notes below. 

6. Definition of an Alphabetic Item 

a. Its picture string can contain only the symbol A or B. 

b. It can contain only the 26 letters of the alphabet and 
the space. 

c. However, no check is made at runtime to prevent a move 
from an alphanumeric item storing a non-alphabetic 
character. 

7. Definition of a Numeric Item 

a. Its picture string can contain only the symbols 9, P, S, 
and V. It must contain at least one 9. 

The picture string must have from 1 to 18 digit 
positions. 

b. It can contain only the digits through 9 and an 
operational sign. 

8. Definition of an Alphanumeric Item 

a. Its picture string can consist of all Xs, or a 
combination of the symbols A, X, and 9 (except all 9s or 
all As). The item is treated as if the character-string 
contained all Xs. 

b. Its contents can be any combination of characters from 
the complete character set (see Section 1.2.2). 

9. Definition of an Alphanumeric-Edited Item 

a. Its picture string can consist of any combination of As, 
Xs, or 9s (it must contain at least one A or one X), plus 
at least one of the symbols B, or /. 

b. Its contents can be any combination of characters from 
the complete character set. 

10. Definition of a Numeric-Edited Item 

a. Its picture string must contain at least one of the 
following editing symbols: 

, . * + - B CR DB $ 

It can also contain the symbols 9, V, and P. If you use 
the CURRENCY SIGN IS clause, the new currency sign you 
specify replaces the $ in the above list. 

The allowable sequences are determined by certain editing 
rules for each symbol and can be found in Note 11. 

The picture string must have from 1 to 18 digit 
positions. 

b. The contents can be any combination of the digits 
through 9 and the editing characters. 
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11. The symbols used to "define the category of an elementary item 
and their functions are as follows: 

A Each A in the picture string represents a character 
position which can contain only a letter of the alphabet 
or a space. 

B Each B in the picture string represents a character 
position into which a space character is inserted during 
editing. 

Examples: (A-FLD contains the value 092469) 

B-FLD picture string Result 

MOVE A-FLD TO B-FLD 99B99B99 

MOVE A-FLD TO B-FLD 9999BBBB 






9 


A 


2 


4 


A 6 


9 







9 


2 


4 


AAA A 



Also see Note 15, Simple Insertion Editing. 

Each P in the picture string indicates an assumed decimal 
point scaling position and is used to specify the 
location of an assumed decimal point when the point is 
outside the positions defined for the item. Ps are not 
counted in the size of the data item. They are counted 
in determining the maximum number of digit positions (18) 
allowed in numeric-edited items or numeric items. 

Digit positions specified by P will contain zeros when 
referenced as a numeric item, as when the data-item is 
moved to a numeric or numeric edited item, or as when 
compared to a numeric item. 

P's can appear only to the left or right of the picture 
string and must appear together. The P character symbol 
cannot appear in a data-item that defines a relative key. 
The assumed decimal point is assumed to be to the left of 
the string of Ps if the Ps are at the left end of the 
picture string and to the right of the string of Ps if 
the Ps are at the right end of the picture string. If 
the V symbol is used in this case, it must appear in 
either of those positions; in either case, it is 
redundant. 

Examples: 

PPP9999 (or VPPP9999) defines a data item of four 
character positions whose contents are treated as 
.000nnnn during any decimal point alignment operation 
(such as in a MOVE or ADD). 9PPP (or 9PPPV) defines a 
data item of one character position whose contents are 
treated as n000 during any decimal point alignment 
operation. 



The P character symbol cannot appear in a data-item 
defines a relative key. 



that 



An S in a picture string indicates that the item has an 
operational sign and retains the sign of any data stored 
in it. The S must be written as the leftmost character 
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in the picture string. If S is not included, all data is 
stored in the item as an absolute value and is treated as 
positive in all operations. The S symbol is not counted 
in the size of the data item unless the SIGN IS SEPARATE 
clause is included, in which case it occupies one 
character position. 

V A V in a picture string indicates the location of the 
assumed decimal point and can appear only once in a 
picture string. The V does not represent a physical 
character position and is not counted in the size of the 
data item. If the assumed decimal point position is at 
the right of the rightmost character position of the 
item, the V is redundant (that is, 9999 is functionally 
equivalent to 9999V) . 

X Each X in a picture string represents a character 
position which can contain any allowable character from 
the complete character set. 

Z Each Z in a picture string represents the leftmost 
leading numeric character positions in which leading 
zeros are to be replaced by spaces. Each Z is counted in 
the size of the item. 

* Each * in a picture string represents the leftmost 
leading numeric character positions in which leading 
zeros are to be replaced by *. Each * is counted in the 
size of the item. 

Examples: (A-PLD contains the value 00305) 



B-FLD picture string 
MOVE A-FLD TO B-FLD 999999 
MOVE A-FLD TO B-FLD ZZ9999 
MOVE A-FLD TO B-FLD ZZZZZZ 
MOVE A-FLD TO B-FLD ZZZZ.ZZ 



Result 



3 5 



A 


A 





3 





5 





A 


A 


A 


3 





5 






A 


3 





5 


• 









Also see Note 19, Zero Suppression Editing. 

Each 9 in a picture string represents a character 
position which can contain a digit. Each 9 is counted in 
the size of the item. 

Each in a picture string represents a character 

position into which a zero is inserted. It is counted in 

the size of the item. The symbol works in the same 
manner as the B symbol. 

Each , in a picture string represents a character 
position into which a comma is inserted. The comma is 
counted in the size of the item. 

Each / in a picture string represents a character 
position into which the slash is inserted. The slash is 
counted in the size of the item. 
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Examples: 
-005625) 



(A-FLD contains 005625; B-FLD contains 



C-FLD picture string 

MOVE A-FLD TO C-FLD ++999 .99 

MOVE B-FLD TO C-FLD ++++9.99 

MOVE ZERO TO C-FLD ++999.99 

MOVE ZERO TO C-FLD +++++.++ 

MOVE A-FLD TO C-FLD — 999.99 

MOVE B-FLD TO C-FLD ^-999.99 

MOVE ZERO TO C-FLD 99.99 

MOVE ZERO TO C-FLD < 



Result 



A 1 


+ 





5 


6 


. 


2 


5 




A 


A 


- 


5 


6 


• 


2 


5 



A 


+ 











. 










A 


A 


A 


A 


A 


A 


A 


A 



A 


" ■ 
A 





5 


6 


. 


2 


5 




A 


- 





5 


6 


. 


2 


5 



A 


A 


A 





. 










A 


A 


A 


A 


A 


A 


A 





Also see Note 18, Floating Insertion Editing. 

Note that the + and - symbols are distinct from the S 
(operational sign) symbol. Normally, the + and - symbols 
are used to describe display items that are to appear on 
some printed report; they provide visual sign indication 
and cannot be used with items appearing as operands in 
arithmetic statements. 

A $ (or the symbol specified by the CURRENCY SIGN clause 
in the SPECIAL-NAMES paragraph) represents the character 
position into which a $ (or the currency symbol) is to be 
placed. This symbol is counted in the size of the item. 

Example: (A-FLD contains 345675) 



B-FLD character-string 



Result 



MOVE A-FLD TO B-FLD 



$9,999.99 



$|3 ,| 4 1 5 6 . 7 5 



MOVE A-FLD TO B-FLD $999,999.99 $003,456.75 



Also see Note 17, Fixed Insertion Editing. 

The $ symbol can also be used to perform floating 
insertion editing. Floating insertion editing is 
indicated by the occurrence of two or more consecutive $ 
symbols at the beginning of the character string. The 
total number of significant positions in the editing 
field must be at least one greater than the number of 
significant digits in the data to be edited. The 
floating $ symbol floats from left to right through any 
high-order zeros until a decimal point or the picture 
character 9 is encountered. 
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Result 



A 


$ 





/ 





5 


6 


. 


2 


5 




A 


A 


A 


A 


$ 


5 


6 


• 


2 


5 



A 


A 


A $ 











. 










A 


A 


A 


A 


A 


A 


A 


A 


A 


A 



Examples: (A-FLD contains 005625) 

B-FLD picture string 

MOVE A-FLD TO B-FLD $$9,999.99 

MOVE A-FLD TO B-FLD $$$,$$$.99 

MOVE ZERO TO B-FLD $$$,999.99 

MOVE ZERO TO B-FLD $$$,$$$.$$ 

Also see Note 18, Floating Insertion Editing. 

12. There are two general methods of performing editing in the 
PICTURE clause: 

a. insertion, or 

b. suppression and replacement. 

There are four types of insertion editing available: 

a. Simple insertion 

b. Special insertion 

c. Fixed insertion 

d. Floating insertion 

There are two types of suppression and replacement editing: 

a. Zero suppression and replacement with spaces 

b. Zero suppression and replacement with asterisks 

13. The type of editing that may be performed upon an item 
depends on the category to which the item belongs. 



Category 


Type of Editing Allowed 






Alphabetic 


Simple insertion: B only 




Numeric 


None 




Alphanumeric 


None 




Alphanumeric-edited 


Simple insertion: 0, B and / 




Numeric-edited 


All (except for the restriction given 
Note 14) 


in 
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14. Floating insertion editing and zero suppression/replacement 
editing are mutually exclusive in a PICTURE clause. Only one 
type of replacement can be used with zero suppression in a 
PICTURE clause. 

15. Simple Insertion Editing (, BO/) 

The , (comma) , B (space) , (zero) , and / (slash or stroke) 
constitute those editing symbols used in simple insertion 
editing. These insertion characters represent the character 
position in the item into which the character will be 
inserted. These symbols are counted in the size of the item. 

16. Special Insertion Editing (.) 

The . (decimal point) symbol is used in special insertion 
editing. In addition to its use as an insertion character, 
it also represents the position of the decimal point for 
decimal point alignment. This symbol is counted in the size 
of the item. The symbols . and V (assumed decimal point) are 
mutually exclusive in a PICTURE clause. Since the . cannot 
be the last symbol in the character-string, it must be 
immediately followed by one of the line-ending characters, 
either space or carriage return. 

17. Fixed Insertion Editing ($ + - CR DB) 

The currency symbol ($) and the editing sign control 
characters (+ - CR DB) constitute the characters used in 
fixed insertion editing. Only one $ and one of the editing 
sign control characters can be used in a PICTURE 
character-string. When the symbols CR or DB are used, they 
represent two character positions in determining the size of 
the item. The symbols + or - when used must be the leftmost 
or rightmost character positions to be counted in the size of 
the item. The $ when used must be the leftmost character 
position to be counted in the size of the item, except that 
it can be preceded by a + or - symbol. A fixed insertion 
editing character appears in the same character position in 
the edited item as it occupied in the PICTURE 
character-string. 

When the $ is used as a floating insertion editing character, 
the picture string must contain at least one $ more than the 
maximum number of significant digits in the item to be 
edited. If you use a comma and the $ simultaneously for 
editing, there must always be at least two $ to the left of 
the comma because one $ will always be printed; there is no 
place for a significant digit to the left of the comma if you 
have used only one $. (If the item has a picture of $,$$$ 
then no digit will ever appear to the left of the comma; a $ 
will always be there.) A comma is omitted only when what 
appears to its left consists only of zeroes. (With the 
picture string $,$$$ the comma is never omitted.) 
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Editing sign control symbols produce the following results 
depending on the value of the data being edited. 



Editing Symbol in 
PICTURE 


Result 


Data Positive 


Data Negative 


character-string 












+ 


+ 


- 


- 


space 


- 


CR 


2 spaces 


CR 


DB 


2 spaces 


DB 



18. Floating Insertion Editing ($$ ++ — ) 

The $ and the editing sign control symbols + and - are the 

floating insertion editing characters and are mutually 
exclusive in a given PICTURE string. 

Floating insertion editing is indicated in a PICTURE 
character-string by using a string of at least two of the 

allowable insertion characters to represent the leftmost 

numeric character positions into which the insertion 

characters can be floated. Any of the simple insertion 

characters embedded in the string of floating insertion 

characters or to the immediate right of this string are part 
of the floating string. 



In a PICTURE character-string, there are only two ways 
representing floating insertion editing: 



of 



a. Representing any two or more of the leading numeric 
character positions on the left of the decimal point by 
the insertion character. The result is that a single 
insertion character will be placed in the character 
position immediately preceding the leftmost nonzero digit 
of the data being edited or in the character position 
immediately preceding the decimal point, or in the 
character position represented by the rightmost insertion 
character, whichever is encountered first. 

b. Representing all numeric character positions in the 
character-string by the insertion character. If the 
value is not zero, the result is the same as when the 
insertion character appears only to the left of the 
decimal point. If the value is zero, the entire item is 
set to spaces. 

A picture string containing floating insertion characters 
must contain at least one more floating insertion 
character than the maximum number of significant digits 
in the item to be edited. For example, a data field 
containing five significant digit positions requires an 
editing field of at least six significant positions. 

All floating insertion characters are counted in the size 
of the item. 
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19. Zero suppression Editing (Z *) 

The suppression of leading zeros and commas in a data field 
is indicated by the use of the Z or the * symbol in a picture 
string. These symbols are mutually exclusive in a given 
picture string. Each suppression symbol is counted in the 
size of the item. If a Z is used, the replacement character 
is a space. If an * is used, the replacement character is an 
*. Zero suppression and replacement is indicated by a string 
of one or more Zs or *s to represent the leading numeric 
character positions which are to be replaced when the 
associated character position in the data contains a leading 
zero. Any of the simple insertion characters embedded in 
this string of zero suppression symbols or to the immediate 
right of this string are part of the string. 

If the zero suppression symbols appear only to the left of 
the decimal point, any leading zero in the data that 
corresponds to a zero suppression symbol in the string is 
replaced by the replacement character. 

Suppression terminates at the first nonzero digit in the data 
represented by the suppression symbol in the string or at the 
decimal point, whichever is encountered first. 

If all numeric character positions in the picture string are 
represented by the suppression symbol and the value of the 
data is not zero, the result is the same as if the 
suppression characters were only to the left of the decimal 
point. If the value is zero, the entire item (including any 
sign) will be set to the replacement character (with the 
exception of the decimal point if the suppresson symbol is an 
*). 

The * and the clause BLANK WHEN ZERO may not appear in the 
same entry. 
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Example 



(A-FLD contains 023456, B--FLD contains 001200) 



MOVE A-FLD TO R-FLD 
MOVE B-FLD TO R-FLD 
MOVE A-FLD TO R-FLD 
MOVE B-FLD TO R-FLD 
MOVE ZERO TO R-FLD 
MOVE ZERO TO R-FLD 
MOVE ZERO TO R-FLD 
MOVE ZERO TO R-FLD 



R-FLD 

PICTURE 

String 

**** # ** 
XXXX.XX 
ZZZZ.ZZ 
ZZZZ.ZZ 
****.** 

ZZZZ.ZZ 
+ **** m ** 

+ZZZZ.ZZ 



Result 
of. MOVE 



*234.56 

**12.00 (1) 

234.56 (1) 
12.00 

**** # ** (2) 

AAAAAAA (3) 

***** # ** (4) 

AAAAAAAA (5) 



(1) Zero supression does not take place to the right of 
the decimal point. 

(2) Decimal point is not suppressed. 

(3) Decimal point is replaced by a space. 

(4) Plus sign ( + ) is replaced by a space. 

(5) Both sign and decimal point are replaced by space. 

20. The symbols + - * Z and $ when used as floating replacement 
characters are mutually exclusive within a given picture 
string. 

21. Figure 4-4 shows the order of precedence of the various 
picture string symbols. Each "Y" on the chart indicates that 
the symbol in the top row directly above can precede the 
symbol at the left of the row in which the "Y" appears. 

i Vindicate that the symbols are mutually exclusive. 

The P and the fixed insertion + and - appear twice. 

P9, +9, and -9 represent the case where these symbols appear 
to the left of any numeric positions in the string. 

9P, 9+, and 9- represent the case where these symbols appear 
to the right of any numeric positions in the string. 

The Z, *, and the floating ++ , — , and $$ also appear twice. 

Z., *., $$., and — . represent the case where these symbols 
appear before the decimal point position. 

.Z, .*, .$$, .++, and . — represent the case where these 
symbols appear following the decimal point position. 
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FIXED INSERTION 


OTHER 






B 





, 




8 


e 


(db) 


$ 


A 
X 


P9 


9P 


S 


V 


ft 


ft 


9 


[-] 


tt 


$$. 


.$$ 




B 


Y 


Y 


Y 


Y 


Y 






Y 


Y 


Y 






Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 







Y 


Y 


Y 


Y 


Y 






Y 


Y 


Y 






Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


z 
o 


i 


Y 


Y 


Y 


Y 


Y 






Y 




Y 






Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 






Y 


Y 


Y 




Y 






Y 




Y 








Y 




Y 


Y 




Y 




1/1 

z 


{:'} 




















Y 






Y 
















Q 

>< 


IB 


Y 


Y 


Y 


Y 








Y 




Y 


Y 




Y 


Y 


Y 


Y 






Y 


Y 




S 


Y 


Y 


Y 


Y 








Y 




Y 


Y 




Y 


Y 


Y 


Y 






Y 


Y 




$ 










Y 










Y 






Y 


















A 
X 


Y 


Y 














Y 














Y 












P9 










Y 






Y 




Y 




Y 


Y 


















9P 


Y 


Y 


Y 




Y 


Y 


Y 


Y 






Y 


Y 




Y 




Y 


Y 




Y 






S 












































V 


Y 


Y 


Y 




Y 


Y 


Y 


Y 






Y 


Y 




Y 




Y 


Y 




Y 




oc 


?:} 


Y 


Y 


Y 




Y 






Y 












Y 














X 
y— 

o 


{;«} 


Y 


Y 


Y 


Y 


Y 






Y 




Y 






Y 


Y 


Y 














9 


Y 


Y 


Y 


Y 


Y 






Y 


Y 


Y 




Y 


Y 


Y 




Y 


Y 




Y 






C} 


Y 


Y 


Y 










Y 


















Y 










<3 


Y 


Y 


Y 


Y 








Y 




Y 






Y 








Y 


Y 








%%. 


Y 


Y 


Y 




Y 




























Y 






.$$ 


Y 


Y 


Y 


Y 


Y 










Y 






Y 












Y 


Y 



Figure 4-4 Picture String Character Chart 
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Function 

The REDEFINES clause allows the same memory area to be allocated to 
two or more data items. 

General Format 

[^ REDEFINES data-name-2 J 

Technical Notes 

1. The REDEFINES clause, when used, must immediately follow 
data-name-1 . 

2. The level-numbers of the data-name-1 and data-name-2 must be 
identical . 

3. This clause must not be used for level-number 66 or 88 items. 
Also, ' it must not be used for level-01 entries in the File 
Section; implicit redefinition is provided by specifying 
more than one data-name in the DATA RECORDS ARE clause in the 
FD. However, the REDEFINES clause may be used to redefine an 
item whose picture contains the OCCURS clause. 

4. When the level-number of the data-names is other than 
level-01, the storage area for data-name-2 should be of the 
same size as data-name-1. FILLER items may be used to comply 
with this rule. 

5. The REDEFINES entry must immediately follow the entries 
describing data-name-2. 

6. The redefinition entries cannot contain VALUE clauses. 

7. Data-name-2 must not be qualified. 

8. The following example illustrates the use of the REDEFINES 
entry. The entries shown cause AREA-A and AREA-B to occupy 
the same area in memory. 

03 AREA-A USAGE DISPLAY-6. 

04 FIELD-1 PICTURE IS X(7). 
04 FIELD-2 PICTURE IS A (13). 
04 FIELD-3. 

05 SUBFIELD-1 PICTURE IS 

S999V99 USAGE IS COMP. 
05 SUBFIELD-2 PICTURE IS 
S999V99 USAGE IS COMP. 
03 AREA-B REDEFINES AREA-A USAGE DISPLAY-6. 
04 FIELD-A PICTURE IS X(22). 
04 FIELD-B PICTURE IS X(5). 
04 FILLER PICTURE IS X(9). 
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can be defined so that 



REDEFINES (Cont.) 



each area is calculated so that AREA-B 
its size is equal to that of AREA-A. 



AREA-A: 


FIELD-1 


7 




FIELD-2 


13 




FIELD- 3 


4 




SUBFIELD-1 


6 




SUBFIELD-1 


6 


Total 6- 


-bit characters 


36 


AREA-B: 


FIELD-A 


22 




FIELD-B 


5 




FILLER 


9 



6-bit characters 

assumed) 

6-bit characters 

assumed) 

6-bit characters 

because COMP items 

at a new word bound 

6-bit characters ( 

occupy one word, o 

character positions 

6-bit characters ( 

occupy one word, o 

character positions 



(DISPLAY-6 

(DISPLAY-6 

(not used 
must start 
ary) 

COMP items 
r six 6-bit 

) 

COMP items 

r six 6-bit 

) 



6-bit characters 

assumed) 

6-bit characters 

assumed) 

6-bit characters 

make AREA-B size 

AREA-A) 



(DISPLAY-6 

(DISPLAY-6 

(needed 



equal 



to 
to 



Total 6-bit characters 36 
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4.9.20 RENAMES (level-66) 



Function 

The RENAMES clause permits alternate, possibly overlapping, groupings 
of elementary items. 



General Format 



66 data-name-1 RENAMES data-name-2 



THROUGH 
THRU 



data-name-3 



Technical Notes 

1. All RENAMES entries associated with items in a given record 
must immediately follow the last data description entry for 
that record. 

01 data-name-a 

(data description entries) 

(level-66 entries associated with this logical record) 
01 data-name-b. 



2. Data-name-1 cannot be used as a qualifier, and can be 
qualified only by the names of the level-01 or FD entries 
associated with it. 

3. The words THRU and THROUGH are equivalent. 

4. Data-name-2 and data-name-3 must be the names of items in the 
associated logical record and cannot be the same data-name. 

Neither data-name-2 nor data-name-3 can have a level-number 
of 01, 66, 77, or 88. Neither of these data-names can have 
an OCCURS clause in its data description entry, nor be 
subordinate to an item that has an OCCURS clause in its data 
description entry. 

Data-name-2 must precede data-name-3 in the record 
description, and data-name-3 cannot be subordinate to 
data-name-2. If there is any associated redefinition 
(REDEFINES) , the ending point of data-name-3 must logically 
follow the beginning point of data-name-2. When data-name-3 
is specified, data-name-1 is a group item that includes all 
elementary items starting with data-name-2 (if data-name-2 is 
an elementary item) or the first elementary item in 
data-name-2 (if data-name-2 is a group item) and concluding 
with data-name-3 (or the last elementary item in 
data-name-3) . 
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If data-name-3 is not specified, data-name-2 can be either a 
group item or an elementary item. If it is a group item, 
data-name-1 is treated as a group item and includes all 
elementary items in data-name-2; if data-name-2 is an 
elementary item, data-name-1 is treated as an elementary item 
with the same descriptive clauses. 

5. The following examples illustrate the use of the RENAMES 
entry. 

01 



RECORD- 


-NAME . 


02 FIRST-PART. 


03 


PART-A. 




04 FIELD-1 PICTURE IS . . . 




04 FIELD-2 PICTURE IS . . . 




04 FIELD-3 PICTURE IS . . . 


03 


PART-B. 




04 FIELD-4 PICTURE IS . . . 




04 FIELD-5. 




05 FIELD-5A PICTURE IS 




05 FIELD-5B PICTURE IS 



03 SECOND-PART. 
03 PART-C. 

04 FIELD-6 PICTURE IS . . . 

04 FIELD-7 PICTURE IS . . . 
66 SUBPART RENAMES PART-B THRU PART-C. 
66 SUBPART1 RENAMES FIELD-3 THRU SECOND-PART. 
66 SUBPART2 RENAMES FIELD-5B THRU FIELD-7. 
66 AMOUNT RENAMES FIELD-7. 
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4.9.21 SIGN 

Function 

The SIGN clause specifies the position and the mode of representation 
of the operational sign. 

General Format 



[ _SIGN IS J tr^?LIN G 1 Q EPARATE CHARACTER] 



Technical Notes 

1. The optional SIGN clause, if present, specifies the position 
and the mode of representation of the operational sign for 
the numeric data description entry to which it applies, or 
for each numeric data description entry subordinate to the 
group to which it applies. The SIGN clause applies only to 
numeric data description entries whose PICTURE contains the 
character S; the S indicates the presence of an operational 
sign. However, it does not indicate the representation or 
the position of the sign. 

2. The numeric data description entries to which the SIGN clause 
applies must be described as USAGE IS DISPLAY. 

3. At most one SIGN clause may apply to any given numeric data 
description entry. 

4. If the CODE-SET clause is specified, any signed numeric data 
description entries associated with that file description 
entry must be described with the SIGN IS SEPARATE clause. 

5. A numeric data description entry whose PICTURE contains the 
character S, but to which no optional SIGN clause applies, 
has an operational sign which is associated with the trailing 
digit position of the elementary item. 

6. If the optional SEPARATE CHARACTER phrase is not present, the 
following rules apply: 

a. The operational sign will be presumed to be associated 
with the trailing digit position of the elementary 
numeric data item. 

b. The letter S in a PICTURE character-string is not counted 
in determining the size of the item (in terms of standard 
data format characters) . 
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7. If the optional SEPARATE CHARACTER phrase is present, the 
following rules apply: 

a. There is no default condition for the operational sign in 
this case. You may specify the SEPARATE CHARACTER phrase 
only when either LEADING or TRAILING is also specified. 

b. The letter S in a PICTURE character-string is counted in 
determining the size of the item (in terms of standard 
data format characters) . 

c. The operational signs for positive and negative are the 
standard data format characters + and -, respectively. 

d. The various possiblities for the SIGN and SEPARATE 
CHARACTER clauses are illustrated below: (value is -111) 

Options SIXBIT 

Representation 

none 00000011J 

SIGN LEADING ] 00000111 

SIGN TRAILING 00000011J 

SIGN LEADING SEPARATE -000000111 

SIGN TRAILING SEPARATE 000000111- 

8. Every numeric data description entry whose PICTURE contains 
the character S is a signed numeric data description entry. 
If a SIGN clause applies to such an entry and conversion is 
necessary for purposes of computation or comparisons, 
conversion takes place automatically. 
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4.9.22 SYNCHRONIZED 



Function 



The SYNCHRONIZED clause specifies the positioning of an elementary 
item within a computer word (or words) . 

General Format 



SYNCHRONIZED I LEFT 
SYNC ( RIGHT 



Technical Notes 

1. This clause can appear only in the data description of an 
elementary item. 

2. This clause is optional. If you omit it the default is 
SYNCHRONIZED LEFT. 

3. This clause specifies that the item being defined is to be 
placed in an integral number of computer words and that it is 
to begin or end at a computer word boundary. No other 
adjacent fields are to occupy these words. The unused 
positions, however, must be counted when calculating: 

a. the size of any group to which this elementary item 
belongs, and 

b. the computer memory allocation when the item appears as 
the object of a REDEFINES clause. However, when a 
SYNCHRONIZED item is referenced, the original size of the 
item (as indicated by the PICTURE clause) is used in 
determining such things as truncation, justification, and 
overflow. 

4. SYNCHRONIZED LEFT or SYNC LEFT specifies that the item is to 
be positioned in such a way that it will begin at the left 
boundary of a computer word. 

SYNCHRONIZED RIGHT or SYNC RIGHT specifies that the item is 
to be positioned in such a way that it will terminate at the 
right boundary of a computer word. 

5. When the SYNCHRONIZED clause is specified for an item within 
the scope of an OCCURS clause, each occurrence of the item is 
SYNCHRONIZED. 

6. Any FILLER required to position the item as specified will be 
automatically generated by the compiler. The content of this 
FILLER is indeterminate. 
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7. If the optional SEPARATE CHARACTER phrase is present, the 
following rules apply: 

a. There is no default condition for the operational sign in 
this case. You can specify the SEPARATE CHARACTER phrase 
only when either LEADING or TRAILING is also specified. 

b. The letter S in a PICTURE character-string is counted in 
determining the size of the item (in terms of standard 
data format characters) . 

c. The operational signs for positive and negative are the 
standard data format characters + and -, respectively. 

d. The various possiblities for the SIGN and SEPARATE 
CHARACTER clauses are illustrated below: (value is -111) 

Options SIXBIT 

Representation 

none 00000011J 

SIGN LEADING ] 00000111 

SIGN TRAILING 00000011J 

SIGN LEADING SEPARATE -000000111 

SIGN TRAILING SEPARATE 000000111- 



8. Every numeric data description entry whose PICTURE contains 
the character S is a signed numeric data description entry. 
If a SIGN clause applies to such an entry and conversion is 
necessary for purposes of computation or comparisons, 
conversion takes place automatically. 
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4.9.23 SYNCHRONIZED 



Function 

The SYNCHRONIZED clause specifies the positioning of an elementary 
item within a computer word (or words) . 



General Format 



SYNCHRONIZED 
SYNC 



LEFT 
RIGHT 



Technical Notes 



This clause can appear only in the data description of an 
elementary item. 

This clause is optional. If you omit it the default is 
SYNCHRONIZED LEFT. 

This clause specifies that the item being defined is to be 
placed in an integral number of computer words and that it is 
to begin or end at a computer word boundary. No other 
adjacent fields are to occupy these words. The unused 
positions, however, must be counted when calculating: 



a. 



b. 



the size of any group 
belongs, and 



to which this elementary item 



the computer memory allocation when the item appears as 
the object of a REDEFINES clause. However, when a 
SYNCHRONIZED item is referenced, the original size of the 
item (as indicated by the PICTURE clause) is used in 
determining such things as truncation, justification, and 
overflow. 

SYNCHRONIZED LEFT or SYNC LEFT specifies that the item is to 
be positioned in such a way that it begins at the left 
boundary of a computer word. For example, 



01 



RECORD-A. 
02 FIELD-A 
02 FIELD-B 



PIC XX SYNC LEFT, 
PIC X. 



MOVE "AB" TO FIELD-A. 
MOVE "C" TO FIELD-B. 
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is stored as (in SIXBIT): 
A B 



(FIELD-A) 



(FIELD-B) 



SYNCHRONIZED RIGHT or SYNC RIGHT specifies that the item is 
to be positioned in such a way that it terminates at the 
right boundary of a computer word. For example, 



01 RECORD-A. 

02 FIELD-A 
02 FIELD-B 



PIC X. 

PIC XX SYNC RIGHT, 



MOVE "A* TO FIELD-A. 
MOVE "BC" TO FIELD-B. 

is stored as (in SIXBIT): 



1 


B C 



(FIELD-A) 
(FIELD-B) 



Any FILLER required to position the item as specified is 
automatically generated by the compiler. The content of this 
FILLER is indeterminate. 
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COMPUTATIONAL (COMP) 



a. COMP is equivalent to COMPUTATIONAL. 

b. A COMPUTATIONAL item represents a value to be used in 
computations and must be numeric. Its picture string can 
contain only the symbols: 9 S V P. Its value is 
represented as a binary number with an assumed decimal 
point. 

c. If a group item is described as COMPUTATIONAL, the 
elementary items in the group are COMPUTATIONAL. 
However, the group itself is not COMPUTATIONAL and cannot 
be used as an operand in arithmetic computations. See 
Note 3 above. 

d. COMPUTATIONAL items of 10 or fewer decimal positions will 
be SYNCHRONIZED RIGHT in one computer word. 
Computational items of more than 10 decimal positions 
will be SYNCHRONIZED RIGHT in two full computer words. 
The maximum size of a COMP item is 18 digits. 



The following illustrations give 
COMPUTATIONAL item. 



the format 



of 



sign 



I 



1-WORD COMPUTATIONAL ITEM 



35 



sign 



1 



35 



not used 



I 



2-WORD COMPUTATIONAL ITEM 



35 



COMPUTATIONAL-1 (COMP-1) 

a. COMP-1 is equivalent to COMPUTATIONAL-1 . 

b. A COMPUTATIONAL-1 item can contain a value, in floating 
point format, to be used in computations. It must be 
numeric. A COMP-1 item must not have a PICTURE. 

c. If a group item is described as COMPUTATIONAL-1, the 
elementary items within the group are COMPUTATIONAL-1. 
However, the group item itself is not COMPUTATIONAL-1 and 
cannot be used as an operand in arithmetic computations. 
See Note 3 above. 

d. COMPUTATIONAL-1 items will be SYNCHRONIZED in one full 
computer word. 
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e. The following illustration gives the format 
COMPUTATIONAL-1 item. 



of 





hiiuii\ 
exponent 


man t iss;i 



1 



35 



6. COMPUTATIONAL^ (COMP-3) 

a. COMP-3 is equivalent to COMPUTATIONAL-3 . 

b. A COMP-3 item's picture string can contain only the 
symbols 9, S, V, P. Its value is represented as a packed 
decimal number with an assumed decimal point. 

c. If a group item is declared as COMP-3 the elementary 
items in the group are COMP-3. However, the group item 
itself is not COMP-3 and cannot be used as an operand in 
arithmetic computations. See Note 3 above. 

d. The maximum size of a COMP-3 item is 18 decimal digits. 

e. The following illustration gives the format of a COMP-3 
item. Note that bits , 9, 18 and 27 of the word are not 
used . 



89 



13 



17 18 



22 



26 27 



31 



35 



f. COMP-3 items may be SYNCHRONIZED LEFT or SYNCHRONIZED 
RIGHT. 

g. COMP-3 items may share a computer word with other COMP-3 
items or with DISPLAY-9 items. However, COMP-3 items 
will always begin at one of the following bit positions 
in a word: 1, 10, 19, 28. 

h. The actual size of a COMP-3 item in memory is at least 
four bits larger and may be nine bits larger than the 
number of character positions because the sign is stored 
in the last four bits of the item and the item is stored 
right justified on a nine-bit byte boundary. 

i. The octal values 12, 14, and 16 represent plus signs and 
the octal values 13 and 15 represent minus signs. The 
octal value 17 represents the nonprinting plus sign. 
Although octal 12, 14 and 16 represent plus signs, the 
sign given to the positive result of any arithmetic 
operation will be 14. Similarly, the minus sign given to 
the negative result of any arithmetic operation will be 
15. 
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The nonprinting plus sign is actually an absolute value 
indicator. Any positive or negative number which is 
moved into an item with this sign will receive this sign. 
In arithmetic computations and numeric editing 
operations, items containing the nonprinting plus sign 
are treated as positive. 



DISPLAY 



a. DISPLAY is equivalent to DISPLAY-6. However, you may 
change DISPLAY to be DISPLAY-7 or 9 with the DISPLAY IS 
clause. You may also cause the compiler to consider all 
DISPLAY items to be DISPLAY-9 by using the /X switch when 
compiling your program. 

8. DISPLAY-6 

a. DISPLAY is equivalent to DISPLAY-6 when the /X switch is 
not given in the compiler command string. 

b. A DISPLAY-6 item represents a string of 6-bit characters. 
Its picture string may contain any picture symbols. 
Refer to Appendix C for the SIXBIT collating sequence. 

c. DISPLAY-6 items may be SYNCHRONIZED LEFT or SYNCHRONIZED 
RIGHT, as desired. Otherwise, they may share a computer 
word with other DISPLAY-6 items. 



d. The illustration below given the format 
word. 



of a DISPLAY-6 



12 



24 



30 



35 



9. 



e. If the /X switch has not been included in the compiler 
command string, and the USAGE clause is omitted for an 
elementary item, its USAGE is assumed to be DISPLAY-6. 



DISPLAY-7 
a 



A DISPLAY-7 item represents a string of 7-bit ASCII 
characters. Its picture string may contain any picture 
symbols. 

DISPLAY-7 items can be SYNCHRONIZED LEFT or SYNCHRONIZED 
RIGHT, as desired; otherwise, they may share a computer 
word with other items. If the item is SYNCHRONIZED 
RIGHT, the last character of the item will end in bit 34 
of a computer word. 

Bit 35 of a word represented in this format is never 
used. 

The maximum length of a DISPLAY-7 item is 4,096 
characters. 
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e. The illustration below gives the format of a DISPLAY-7 
word. 











1 



14 



21 



28 



35 



10. DISPLAY-9 

a. DISPLAY is equivalent to DISPLAY-9 when the /X switch is 
included in the command string to the compiler. 

b. £ DISPLAY-9 item represents a string of EBCDIC 
characters. Its picture string may contain any picture 
symbol . 

c. DISPLAY-9 items may be SYNCHRONIZED LEFT or SYNCHRONIZED 
RIGHT as desired; otherwise, they may share a computer 
word with other DISPLAY-9 or COMP-3 items. If the item 
is SYNCHRONIZED RIGHT, the last character of the item 
will end in bit 35 of a computer word. 

d. The maximum length of a DISPLAY-9 item is 4,096 
characters. 

e. The illustration below gives the format of a DISPLAY-9 
item. Note that bits 0, 9, 18, and 27 are not used. 



I 



£z 



1 



1 



89 



17 18 



26 27 



35 



f. If the USAGE clause is omitted for an elementary item and 
the /X switch has been included in the compiler command 
string, its USAGE is assumed to be DISPLAY-9 . 



11. INDEX 



a. An elementary item described as USAGE INDEX is called an 
index data-item. It is treated as a COMP item with 
PICTURE S9(5) and can be used as a COMP item. 

b. An index data-item must not have a PICTURE. 

c. If a group item is described as INDEX, the elementary 
items within the group are treated as INDEX. However, 
the group item itself is not INDEX and cannot be used as 
an operand in arithmetic statements. 



Index data items and index-names (defined in the 
clause by the INDEXED BY option) are equivalent. 



OCCURS 



If an index-name is defined 
cannot be defined elsewhere. 



in an OCCURS clause, it 
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USAGE (Cont.) 

The octal values 12, 14, and 16 represent plus signs and 
the octal values 13 and 15 represent minus signs. The 
octal value 17 represents the nonprinting plus sign. 
Although octal 12, 14 and 16 represent plus signs, the 
sign given to the positive result of any arithmetic 
operation is 14. Similarly, the minus sign given to the 
negative result of any arithmetic operation is 15. 

The nonprinting plus sign is actually an absolute value 
indicator. Any positive or negative number that is moved 
into an item with this sign receives this sign. In 
arithmetic computations and numeric editing operations, 
items containing the nonprinting plus sign are treated as 
positive. 



7. DISPLAY 



a. DISPLAY is equivalent to DISPLAY-6. However, you can 
change DISPLAY to be DISPLAY-7 or 9 with the DISPLAY IS 
clause. You can also cause the compiler to consider all 
DISPLAY items to be DISPLAY-9 by using the /X switch when 
compiling your program. 

b. The maximum size of any group item in the FILE SECTION is 
4095 characters (7777) . The maximum size of any group 
item in the WORKING-STORAGE SECTION is 262,143 characters 
(777777). These maximum sizes apply to DISPLAY-6, 
DISPLAY-7, and DISPLAY-9 usage. 

8. DISPLAY-6 

a. DISPLAY is equivalent to DISPLAY-6 when the /X switch is 
not given in the compiler command string, or the DISPLAY 
IS clause is not present. 

b. A DISPLAY-6 item represents a string of 6-bit characters. 
Its picture string can contain any picture symbols. 
Refer to Appendix C for the SIXBIT collating sequence. 

c. DISPLAY-6 items can be SYNCHRONIZED LEFT or SYNCHRONIZED 
RIGHT, as desired. Otherwise, they can share a computer 
word with other DISPLAY-6 items. 



d. The illustration below given the format of a 
word. 



DISPLAY-6 



12 



18 



30 



35 

MR-S-1022-81 



e. If the /X switch has not been included in the compiler 
command string, and the USAGE clause is omitted for an 
elementary item, its USAGE is assumed to be DISPLAY-6. 

9. DISPLAY-7 

a. A DISPLAY-7 item represents a string of 7-bit ASCII 
characters. Its picture string can contain any picture 
symbols. 
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DISPLAY-7 items can be SYNCHRONIZED LEFT or SYNCHRONIZED 

RIGHT, as desired; otherwise, they can share a computer 

word with other items. If the item is SYNCHRONIZED 

RIGHT, the last character of the item ends in bit 34 of a 

computer word. 

Bit 35 of a word represented in this format is never 

used. 

The maximum length of a DISPLAY-7 item is 4,095 
characters. 

DISPLAY is equivalent to DISPLAY-7 when the DISPLAY IS 
DISPLAY-7 clause is present. 

The illustration below gives the format of a DISPLAY-7 
word. 






14 



21 



28 



35 

MR-S-1023-81 



10. DISPLAY-9 



DISPLAY is equivalent to DISPLAY-9 when the /X switch is 
included in the command string to the compiler, or 
DISPLAY IS DISPLAY-9 clause is present. 

A DISPLAY-9 item represents a string of EBCDIC 
characters. Its picture string can contain any picture 
symbol. 

DISPLAY-9 items can be SYNCHRONIZED LEFT or SYNCHRONIZED 
RIGHT as desired; otherwise, they can share a computer 
word with other DISPLAY-9 or COMP-3 items. If the item 
is SYNCHRONIZED RIGHT, the last character of the item 
ends in bit 35 of a computer word. 



The maximum length of a DISPLAY-9 
characters. 



item 



is 4,095 



The illustration below gives the format of a DISPLAY-9 
item. Note that bits 0, 9, 18, and 27 are not used. 



1 



1 



i 



i 



f . 



89 



17 18 



26 27 



35 

MR-S- 1024-81 



If 

the 
str 



the USAGE clause is omitted for an elementary item and 
/X switch has been included in the compiler command 
ing, its USAGE is assumed to be DISPLAY-9 . 



11. INDEX 



An elementary item described as USAGE INDEX is called an 
index data-item. It is treated as a COMP item with PICT 
URE S9(5) and can be used as a COMP item. 

An index data-item must not have a PICTURE. 
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VALUE (Cont.) 

7. The VALUE clause must not conflict with other clauses in the 
data description entry or in the data description entries 
within the hierarchy of the item. The following rules apply: 

a. If the category of an item is numeric, all literals in 
the VALUE clause must be numeric. All literals in a 
VALUE clause must have a value within the range of values 
indicated by the PICTURE clause; for example, an item 
with PICTURE PPP9 may have only the values in the range 
.0000 through .0009. 

b. If the category of the item is alphabetic or 
alphanumeric, all literals in the VALUE clause must be 
nonnumeric literals. The literal will be aligned 
according to the normal alignment rules (see the 
JUSTIFIED clause, Section 4.9.15) except that the number 
of characters in the literal must not exceed the size of 
the item. 

c. If the category of an item is numeric-edited or 
alphanumeric-edited, no editing of the value is performed 
in the VALUE clause. 

d. The USAGE of the literal agrees with the USAGE of the 
item. Thus, if the item has USAGE DISPLAY-6, the literal 
also has USAGE DISPLAY-6 and its value must contain legal 
SIXBIT characters. 

8. The figurative constants SPACE(S), ZERO(E)(S), QUOTE(S), 
LOW-VALUE (S) , and HIGH-VALUE (S) may be substituted for a 
literal. if the item is numeric, only ZERO(E)(S), 
LOW-VALUE(S) , and HIGH-VALUE (S) are allowed. 
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4.9.25 Report Description (RD) 



Function 



The Report Description furnishes information concerning the physical 
structure for a report. 



General Format 

RD report-name 



[ CODE 



mnemonic- name 



CONTROL IS 
CONTROLS ARE 



FINAL 

identifier-1 [ identif ier-2] 

FINAL identifier-1 [ identif ier-2; 



PAGE 



LIMIT IS 
LIMITS ARE 



) '"teger-l j [™ s ) 



[ HEADING integer-2 ] [ FIRST DETAIL integer-3] 



[ LAST DETAIL integer-4] [ FOOTING integer-5] 



Technical Notes 



The order of 
immaterial . 



appearance of the optional clauses is 



A fixed data-name PAGE-COUNTER is automatically generated for 
each RD entry. 

Its function is to contain the current page number of a 
report. It is a COMPUTATIONAL item; its size is equal to 
the size of the largest field that refers to it in a SOURCE 
clause. The contents of the PAGE-COUNTER are set to 1 by the 
INITIATE statement. 

The fixed data-name LINE-COUNTER is automatically generated 
for each RD entry. Its function is to contain the current 
line number within a report page. It is a COMPUTATIONAL 
item; its size is based on the number of lines specified in 
the PAGE-LIMIT clause. 
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7. The VALUE clause must not conflict with other clauses in the 
data description entry or in the data description entries 
within the hierarchy of the item. The following rules apply: 

a. If the category of an item is numeric, all literals in 
the VALUE clause must be numeric. All literals in a 
VALUE clause must have a value within the range of values 
indicated by the PICTURE clause; for example, an item 
with PICTURE PPP9 can have only the values in the range 
.0000 through .0009. 

b. If the category of the item is alphabetic or 
alphanumeric, all literals in the VALUE clause must be 
nonnumeric literals. The literal is aligned according to 
the normal alignment rules (see the JUSTIFIED clause, 
Section 4.9.16) except that the number of characters in 
the literal must not exceed the size of the item. 

c. Initialization takes place independent of any BLANK WHEN 
ZERO or JUSTIFIED clause that may be specified. 

d. If the category of an item is numeric-edited or 
alphanumeric-edited, no editing of the value is performed 
in the VALUE clause. 

e. The USAGE of the literal agrees with the USAGE of the 
item. Thus, if the item has USAGE DISPLAY-6, the literal 
also has USAGE DISPLAY-6 and its value must contain legal 
SIXBIT characters. 

8. The figurative constants SPACE(S), ZERO(E)(S), QUOTE(S), 
LOW-VALUE (S) , and HIGH-VALUE (S) can be substituted for a 
literal. If the item is numeric, only ZERO(E)(S), 
LOW-VALUE(S) , and HIGH-VALUE (S) are allowed. 
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4.9.26 Report Description (RD) 



Function 

The Report Description furnishes information concerning the physical 
structure for a report. 



General Format 



RD report -name 

| C0DE mnemonic- name 



I CONTROL 
1 CONTROLS 



tc ) ( FINAL ) 

loci { identifier- 1 [identifier- 2] ... > 

MKt ' ( FINAL identifier-1 [identifier-2] ...J 



PAGE^iL^M 



. , (LINES) 

LIMITS ARE) ' nte 9er-i (LINES) 

[ HEADING integer-2] [ FIRST DETAIL integer-3] 

[ LAST DETAIL integer-4~| [ FOOTING integer-5 ] 



MR-S-1 296-81 



Technical Notes 

1. The order of 
immaterial. 



appearance of the optional clauses is 



A fixed data-name PAGE-COUNTER is automatically generated for 
each RD entry. 

Its function is to contain the current page number of a 
report. It is a COMPUTATIONAL item; its size is equal to the 
size of the largest field that refers to it in a SOURCE 
clause. The contents of the PAGE-COUNTER are set to 1 by the 
INITIATE statement. 

The fixed data-name LINE-COUNTER is automatically generated 
for each RD entry. Its function is to contain the current 
line number within a report page. It is a COMPUTATIONAL 
item; its size is based on the number of lines specified in 
the PAGE-LIMIT clause. You cannot change the value of the 
LINE-COUNTER. 
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4. PAGE-COUNTER or LINE-COUNTER can be referenced as if either 
were any data-name. Either must be qualified by the 
report-name if more than one RD entry is present in the 
program. 

5. Each of the above clauses appears in this chapter separately, 
in alphabetical order. 
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4.9.27 CODE 

Function 

The CODE clause defines a unique string of one or more characters that 
is affixed to each line of the report. 

General Format 
TCODE mnemonic-name"] 

MR-S-1297-81 

Technical Notes 

1. This clause is necessary only if more than one report is to 
be written in a single file. 

2. Mnemonic-name is defined in the SPECIAL-NAMES paragraph of 
the Environment Division, described in Section 3.1.4. 

3. The character string represented by mnemonic-name is affixed 
to the beginning of each report line, and is used to uniquely 
define the lines of separate reports written in one file. 

4. The number of characters represented by mnemonic-name must be 
the same for the codes of all reports in the same file. 
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4.9.28 CONTROL 



Function 



The CONTROL clause indicates the identifiers that control the printing 
of totals in the report. 



General Format 



CONTROL IS 
CONTROLS ARE 



Technical Notes 



FINAL 

identifier-1 L_identifier-2j ... 

FINAL identifier-1 fjidenti fier-2] 



MR-S-1298-81 



1. 

2. 



3. 



The CONTROL clause is required when CONTROL 
CONTROL FOOTING report groups are specified. 



HEADING or 



The identifiers specify the control hierarchy for this 
report. They are listed in order from major to minor; FINAL 
is the highest level of control, identifier-1 is the major 
control, identifier-2 is the intermediate control, etc. The 
last identifier specified is the minor control. 

Identifiers must not be defined in the Report Section. Each 
identifier in the CONTROL clause must identify a different 
data item. Identifiers can be qualified, but they cannot be 
subscripted or indexed. 
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4.9.29 PAGE LIMIT 

Function 

The PAGE LIMIT clause indicates the specific line control to be 
maintained within the presentation of a report page. 

General Format 

p ArF (LIMIT IS ) * ntanav . i | LINE ) 
^ i LIMITS ARE! Inte 9 er -MLINES1 

HEADING integer-2] [ FIRST DETAIL integer-3] 
LAST DETAIL integer-4] j" FOOTING integer-5] 

MR-S-1028-81 

Technical Notes 

1. The PAGE LIMIT clause is required when page format must be 
controlled by the Report Writer. 

2. All integers must have a positive value less than 512. 
Integer-2 through integer-5 must not be greater than 
integer-1. 

3. If absolute line spacing is indicated for all report groups 
(see the LINE NUMBER and NEXT GROUP clauses, Sections 4.9.32 
and 4.9.33 respectively), integer-2 through integer-5 need 
not be specified. 

4. The integers specify line numbers relative to the beginning 
of a page. 

5. The HEADING clause specifies the first line of a page to be 
used; no line precedes integer-2. 

6. The FIRST DETAIL clause specifies the first line of the first 
DETAIL or CONTROL print group; no DETAIL or CONTROL group 
precedes integer-3. 

7. The LAST DETAIL clause specifies the last line of a DETAIL or 
CONTROL HEADING report group; no such group extends beyond 
integer-4. 

8. The FOOTING clause specifies the last line number of the last 
CONTROL FOOTING report group; no CONTROL FOOTING group 
extends beyond integer-5. 

9. If any optional clause is omitted, a value is assumed for its 
integer. The default values are: 

integer-2: Default is 1 

integer-3: Default is the value of integer-2 
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integer-4: Default is the value of integer-5 if 
specified; if integer-5 is also omitted, the 
default is the value of integer-1 

integer-5: Default is the value of integer-4 if 
specified; if integer-4 is omitted, the 
default is the value of integer-1. 
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4.9.30 Report Group Description 



Function 

The Report Group Description entry specifies the characteristics and 
format of a particular report group. 



General Format 



Format 1: 



01 data-name-1 



integer-1 
LINE NUMBER IS {PLUS integer-2 
NEXT PAGE 



finteger-3 
PLUS integer-4 
NEXT PAGE 



TYPE IS< 



REPORT HEADING 

RH 

PAGE HEADING 



PH 



(CONTROL HEADING) f identifier- 1 



DETAIL 






EL 

REPORT FOOTING 



RF 



! DISPLAY 
DISPLAY-6 
DISPLAY-7 
DISPLAY-9 



(id 
IFI 



NAL 



nr ( CONTROL FOOTING ) (identifier 
— (CF i ( FINAL 

PAGE FOOTING 



-2 



MR-S-1029-81 
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Format 2 

level-number I data-name- ll 
[ BLANK WHEN ZERo] 
[ COLUMN NUMBER IS integer- l] 
[ GROUP INDICATE] 
[lUpiEDJ RIGHT ] 



!integer-2 ) 
PLUS integer-3} 
NEXT PAGE J 



integer-2 
LINE NUMBER IS { PLUS integer-3] 
NEXT PAGE 



PICTURE) 



PIC 



IS character-stri 



ng 



I RESET ON { 



identifier-1 
FINAL 



( SOURCE IS identifier-2 

I SUM identifier-3 [,identifier-4] 

(VALUE IS literal-1 



. [UPON data-name-2]( 



! DISPLAY 
DISPLAY-9 
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Technical Notes 

1. Except for the data-name, which when present must immediately 
follow the level-number, the clauses can be written in any 
order. 

2. A report group must have a data-name if it is referred to by 
a Procedure Division statement. 

3. Up to three hierarchical levels are permitted in a report 
group description. 

4. All elementary items must have both a PICTURE clause and one 
of the clauses SOURCE, SUM, or VALUE. 

5. For a detailed description of the BLANK WHEN ZERO, JUSTIFIED, 
PICTURE, VALUE, and USAGE clauses, see the pages following 
the Data Description Entry, which is Section 4.9.12. 

6. The data-name need not appear in an entry unless it is 
referred to by a GENERATE or USE statement, or reference is 
made to the SUM counter. 

7. If the level-01 item is elementary, the clauses in Format 2 
can be used in addition to the clauses in Format 1. 

8. The remaining clauses are described in detail on the 
following pages. 
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4.9.31 COLUMN NUMBER 



Function 



The COLUMN NUMBER clause indicates the column on the printed page in 
which the high-order (leftmost) character of an item is printed. 

General Format 



[ COLUMN NUMBER IS integer-f] 



Technical Notes 

1. Integer must have a positive value less than 512. 

2. This clause is valid only for an elementary item. 

3. Within a report group and a particular LINE NUMBER 
specification, COLUMN NUMBER entries must be indicated from 
left to right. 

4. If the COLUMN NUMBER clause is omitted, the elementary item, 
though included in the description, is suppressed when the 
report group is produced at object time. 

5. An entry that contains a COLUMN NUMBER clause but no LINE 
NUMBER clause must be subordinate to an entry that contains a 
LINE NUMBER clause. 
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4.9.32 GROUP INDICATE 



Function 

The GROUP INDICATE clause indicates that this elementary item is to be 
produced only on the first occurrence of the item after any CONTROL or 
PAGE breaks. 



General Format 



D 



GROUP INDI 



cateJ 



Technical Notes 

1. This clause can only be used at the elementary level within a 
TYPE DETAIL report group. 

2. A GROUP INDICATEd item is presented in the first detail line 
of a report after any control breaks and after any page 
breaks; it is suppressed at all other times. 

3. The GROUP INDICATE clause can only appear in a DETAIL report 
entry defining a printable item. (A printable item is a data 
item that contains a COLUMN and PICTURE clause.) 
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4.9.33 LINE NUMBER 

Function 

The LINE NUMBER clause indicates the absolute or relative line number 
entry in reference to the page or the previous entry. 

General Format 

! integer-1 
PLUS integer-2 
NEXT PAGE 

MR-S-1301-81 

Technical Notes 

1. Integer-1 and integer-2 must be positive integers with values 
less than 512. Integer-1 must be within the range specified 
by the PAGE LIMITS clause in the RD entry. 

2. The LINE NUMBER clause must be given for each report line of 
a report group, and must be specified at or before the first 
elementary item that contains a COLUMN clause of each report 
line. If an item does not contain a COLUMN clause and the 
LINE NUMBER clause is specified for it, no printing is done, 
but the LINE NUMBER clause does cause vertical spacing to be 
done. 

3. If a LINE NUMBER clause is specified for an item, all entries 
following that item, up to but not including the next item 
with a LINE NUMBER clause, are presented on the same line. 

4. A LINE NUMBER at a subordinate level can not contradict a 
LINE NUMBER at a group level. 

5. Integer-1 indicates that the current line is to be presented 
at that line number. 

6. PLUS integer-2 indicates that the LINE-COUNTER is to be 
incremented by the value of integer-2, and that the current 
line is to be presented on the line specified by the new 
value of the LINE-COUNTER. The LINE NUMBER clause is the 
only way for you to change the current value of LINE-COUNTER. 

7. A relative LINE NUMBER clause cannot be the first LINE NUMBER 
clause in a PAGE FOOTING group. 
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8. NEXT PAGE is used to indicate an automatic skip to the next 
page before the current line is presented. If there is no 
PAGE-LIMIT clause, there is only a skip to the top of the 
next page. However, if there is a PAGE-LIMIT clause, after 
skipping to the next page, the Report Writer then spaces as 
follows. 



Type of Line 


Space To 






Detail, control heading, 
control footing 

Report heading, report 
footing, page heading 

Page footing 


First detail line 
Heading line 
Footing line 
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4.9.34 NEXT GROUP 



Function 



The NEXT GROUP clause specifies the spacing condition following the 
last line of the report group. 

General Format 

!integer-l ) 

PLUS integer-2 } 
NEXT PAGE J 

MR-S-1 302-81 

Technical Notes 

1. The NEXT GROUP clause can appear only at the 01-level of a 
report group. However, the NEXT GROUP clause cannot be 
specified in a REPORT FOOTING report group. 

2. Integer-1 and integer-2 must be positive integers with values 
less than 512. Integer-1 cannot exceed the number of lines 
specified by the PAGE LIMIT clause. 

3. Integer-1 indicates a line number to which the LINE-COUNTER 
is set after the group is presented. 

4. PLUS integer-2 indicates a relative line number that 
increments the LINE-COUNTER by the value of integer-2 after 
the group is presented. Integer-2 is the number of lines 
skipped following the last line of the report group. 

5. NEXT PAGE indicates an automatic skip to the next page after 
the group is presented. 

6. The NEXT PAGE clause cannot be specified in a PAGE FOOTING 
report group. 
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4.9.35 RESET 

Function 

The RESET clause indicates the CONTROL data-item that causes the SUM 
counter to be reset to zero on a control break. 

General Format 
RESET ON j^ ifier " 1 } 

MR-S- 1033-81 



Technical Notes 

1. Identifier must be one of the identifiers associated with the 
CONTROL clause in the RD entry. 

2. The RESET clause can be used only in conjunction with a SUM 
clause at a CONTROL FOOTING elementary level. 

3. Identifier must be a higher level (more major) control 
identifier than the control identifier associated with this 
report group. 

4. After a TYPE CONTROL FOOTING report group is presented, the 
sum counters associated with that group are automatically set 
to zero, unless an explicit RESET clause directs that the 
counter be cleared at a higher level. 
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4.9.36 SOURCE 

Function 

The SOURCE clause indicates the source of the data for a report item. 

General Format 

SOURCE IS identifier 

MR-S-1 303-81 

Technical Notes 

1. The SOURCE clause can only be given at the elementary level. 

2. Identifier must reference an item that appears in the File or 
Working-Storage Section. 

3. The identifier can be subscripted or indexed (see the OCCURS 
clause, Section 4.9.18). 

4. When the report group is presented, the contents of this 
report item are replaced by the contents of identifier. 
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4.9.37 SUM 



Function 



The SUM clause indicates the items to be summed to produce the source 
of data for a report item. 

General Format 

SUM identifier- 1 T identifier-2] ... [ UPON data-name-l] 

MR-S-1 304-81 

Technical Notes 

1. A SUM clause can appear only in a TYPE CONTROL FOOTING report 
group. 

2. Each identifier must indicate a SOURCE item in a TYPE DETAIL 
report group, or a SUM counter in a TYPE CONTROL FOOTING 
report group. 

3. If the SUM counter is referred to by a Procedure Division or 
Report Section statement, a data-name must be specified for 
the item. The data-name then represents the summation 
counter automatically generated by the Report Writer; that 
data-name does not represent the report group item itself. 

4. A summation counter is incremented just before the 
presentation of the identifiers. Any editing of the SUM 
counters is done only when the sum item is presented; at all 
other times it is treated as a numeric item. 

5. If higher-level report groups are indicated in the control 
hierarchy, each lower level that is figured into the sum is 
summed into the higher level before each lower level is 
reset: that is, counters are rolled forward prior to the 
reset operation. 

6. The UPON option is required to obtain selective summation for 
a particular data item that is named as a SOURCE item in two 
or more TYPE DETAIL report groups. Identifier-1 and 
identifier-2 must be SOURCE data items in data-name-l; 
data-name-l must be the name of a TYPE DETAIL report group. 

7. When the UPON option is used, summation occurs only when a 
GENERATE statement references data-name-l. It does not occur 
during summary reporting (refer to the GENERATE statement, 
Section 5.9.16.) 

8. The identifiers cannot be subscripted or indexed. 
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TYPE 



4.9.38 TYPE 



Function 



The TYPE clause specifies the particular type of report group that is 
described by this entry and indicates the time when the report group 
is generated. 



General Format 



TYPE IS< 



REPORT HEADING 

RH 

PAGE HEADING 

DU ( CONTROL HEADING ) 
m (CH ) 



DETAIL 



DE 



( CONTROL FOOTING ) 



*CF 

PAGE FOOTING 

PF 

REPORT FOOTING 

RF 



Technical Notes 

1. RH is an abbreviation 
PH is an abbreviation 
CH is an abbreviation 
DE is an abbreviation 
CF is an abbreviation 
PF is an abbreviation 
RF is an abbreviation 



identifier-n) 
FINAL 1 



identifier-n 
FINAL 



MR-S-1035-81 



for REPORT HEADING, 

for PAGE HEADING, 

for CONTROL HEADING, 

for DETAIL, 

for CONTROL FOOTING, 

for PAGE FOOTING, 

for REPORT FOOTING. 



2. If the report group is described as TYPE DETAIL, the GENERATE 
statement in the Procedure Division directs the Report Writer 
to produce the named report group. 

3. The REPORT HEADING entry indicates a report group that is 
produced only once at the beginning of a report, during the 
execution of the first GENERATE statement. There can be only 
one report group of this type in a report. 

4. The PAGE HEADING entry indicates a report group that is 
automatically produced at the beginning of each page of the 
report. There can be only one report group of this type in a 
report. 

5. The CONTROL HEADING entry indicates a report group that is 
produced at the beginning of a control group for a designated 
identifier. In the case of FINAL, it is produced once before 
the first control group during the execution of the first 
GENERATE statement. There can be only one report group of 
this type for each identifier and for FINAL. 
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TYPE (Cont.) 



6. The CONTROL FOOTING entry indicates a report group that is 
produced at the end of a control group for a designated 
identifier, or that is produced only once at the termination 
of a report in the case of FINAL. There can be only one 
report group of this type for each identifier and for FINAL. 
In order to produce any CONTROL FOOTING report groups, a 
control break must occur. In the event that a CONTROL 
FOOTING occurs after a control break and is the first line 
printed on the next page, change one or more values 
(integer-1, integer-4, and integer-5) of the PAGE LIMIT 
clause. 

7. The PAGE FOOTING entry indicates a report group that is 
automatically produced at the bottom of each page of the 
report. There can be only one report group of this type in a 
report. 

8. The REPORT FOOTING entry indicates a report group that is 
produced only once, at the termination of a report. There 
can be only one report group of this type in a report. 

9. Each identifier, as well as FINAL, must be one of the 
identifiers associated with the CONTROL clause in the RD 
entry. 
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GENERAL FORMAT FOR DATA DIVISION 



DATA DIVISION, 



& 



LE SECTION 



[ FD file-name 

BLOCK CONTAINS [jnteger-1 TO] integer-2 J CHARACTER S [ 
"RECORD CONTAINS [Integer- 3 TpJ integer-4 CHARACTERS"! 



LABEL 



RECORD IS I I STANDARD 



RECORDS ARE ( \ OMITTED 



VALUE OF 



IDENTIFICATION f - (data-name-1 
ID ( lb jliteral-1 



DATE-WRITTEN 



T< - I data-name-2 
lb Jliteral-2 



USER-NUMBER IS 



{data -name -3 
integer-5, integer-6 



DATA 



{ liis^RE | data - name " 4 [>ta-name-5^ 



LINAGE IS ( ■ "tege?-7 _6 } LINES 



LINES AT TOP J ? a ** _ 2 am *- 8 
— i integer-9 



WITH FOOTING AT 



LINES AT BOTTOM 



[ "CODE-SET IS alphabet-name - 1 

{REPORT IS I I — — I 

WORTS ARE ] report-name-1 |_re port- name -2j 



RECORDING 



MODE IS [ ~BYTE MODeI / F 



ASCII 

SIXBIT 

BINARY 



STANDARD-ASCII 
STANDARD ASCII 



data-name-7 
integer-8 



data-name-9 
integer-10 
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GENERAL FORMAT FOR DATA DIVISION 



200 

556 

DENSITY IS <; 800 

1600 

6250 



PARITY !S {§&} 



D 



SD file-name 



TrECORD CONTAINS [jnteger-1 Tc[] integer-2 CHARACTERS 



nnrn i RECORD IS f . . . n . "~1 

RECORDS ARE I data_name ~l ldata-name-2 I 



| record-descri ption-entry f 
[ WORKING-STORAGE SECTION . 



77-1 eve! -description-entry 
record-description-entry 

[ j-INKAGE SECTION . 

77-1 evel -descri ption-entry 
record-description-entry 

[ COMMUNICATION SECTION . 



[communi cat ion-description-entry 
[record-descri ption-entry[j ... 



MR-S-1 306-81 
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GENERAL FORMAT FOR DATA DIVISION 



REPORT SECTION. 
RD report-name 



[ CODE 



mnemonic- name 



CONTROL IS 
CONTROLS ARE 



FINAL 

identifier- 1 [ i dentif ier-2] 

FINAL identif ier-1 [ i dentif ier-2] 



PAGE 



LIMIT IS 
LIMITS ARE 



] "*e*r-l { tlSIs } 



[ HEADING integer-2 ] [ FIRST DETAIL integer-3] 



[ LAST DETAIL integer-4] [ FOOTING integer-5] 



|record-descri pti an-entry| 
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GENERAL FORMAT FOR DATA DESCRIPTION ENTRY 



FORMAT 1: 



i„ t „ k~ i data-name-1 ) 
level-number ^ FILLER J 

' REDEFINES data-narne-2 ] 



PICTURE 
PIC 



IS character-string 



USAGE IS 



COMPUTATIONAL 

COMP 

COMPUTATIONAL-1 

COMP-1 

C0MPUTATI0NAL-3 

COMP- 3 

DISPLAY 

DISPLAY-6 

DISPLAY-7 

DISPLAY-9 

INDEX 

DATABASE-KEY 

DBKEY 



G^ ^{ tMg } \jmMIl CHARACTER] 



r-2 TIMES DEPENDING ON data-name-3 



nmiRS i int eger-l TO intege 
ULLUKb Mnteger-2 TIMES 

{ dIsCeSdIN G } KEY IS <**ta-na m e-4 Qdata-name-s] ...^ 
I INDEXED BY index-name- 1 [jndex-name-2] 

( synchronized 

| SYNC 

( JUSTIFIE D) ( RIGHT 
) JUST 



LEFT 
RIGHT 



[JLANK WHEN ZERO] 
[ VALUE IS literal] 
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GENERAL FORMAT FOR DATA DESCRIPTION ENTRY 



FORMAT 2 



66 data-name-1 RENAMES data-name-2 



THROUGH 
THRU 



data-name-3 



FORMAT 3: 



condition-name 



VALUE IS 
VALUES ARE 



1 iteral-1 



THROUGH 
THRU 



literal-2 



literal -3 



THROUGH 
THRU 



literal -4 
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GENERAL FORMAT FOR REPORT GROUP DESCRIPTION ENTRY 



Format 1 



01 [data-name-1 ] 



(integer-1 
PLUS integer-2 
NEXT PAGE 



(integer-3 
PLUS integer-4 
NET! PAGE 



i REPORT HEADING 

m 

PAGE HEADING 



PH 



CONTROL HEADING 



TYPE IS < 



— CH 

DETAIL 

DE I CONTROL FOOTING 

PAGE FOOTING 

FT 

REPORT FOOTING 

RF 



identif ier-1 
FINAL 



identif ier-2 
FINAL 



[ USAGE IS ] 



DISPLAY 
DISPiAV-6 
DISPLAY-7 
DISPLAY-9 
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GENERAL FORMAT FOR REPORT GROUP DESCRIPTION ENTRY 



Format 2 



level-number [ data-name-1 ] 



[ BLANK WHEN ZERO ] 



[ COLUMN NUMBER IS integer-1 ] 
[ GROUP INDICATE] 



JUSTIFIED . RTfHT 
IfJST ' RIGHT 



(integer-2 
PLUS integer-3 
NEXT PAGE 



PICTURE 
PIC 



IS character-string 



RESET ON 



identifier-1 
FINAL 



SOURCE IS identifier-2 

SUM identifier-3 [ identifier-4] 

VALUE IS literal-1 



[ USAGE IS ] 



DISPLAY 
DISPLAY-6 
DISPLAY-7 
DISPLAY-9 



[UPON data-name-2] 
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CHAPTER 5 
THE PROCEDURE DIVISION 



The Procedure Division specifies the processing to be performed on the 
files and file data described in the Environment and Data Divisions. 
The Procedure Division contains a series of COBOL procedure statements 
which describe the processing to be done. Statements, sentences, 
paragraphs, and sections are described in Section 5.1. Sections are 
optional and permit a group of consecutive paragraphs to be referenced 
by a single procedure-name; sections can also be used for 
segmentation purposes (see Section 5.3, Segmentation). If any section 
appears in the Procedure Division, then all paragraphs must appear 
within a section. 

The first entry in the Procedure Division of a source program must be 
the division-header. The next entry must be either the DECLARATIVES 
header (see the USE statement, Section 5.9.42), or a paragraph-name or 
section-name. 



PROCEDURE DIVISION 



DECLARATIVES 



USING data-name-1 |~data-name-2 | 



D 

I section-name SECTION ["segment -number"] . declarative-sentence 
paragraph-name, [jentencej ... ••• \ ••• 



END DECLARATIVES^"! 



< section-name SECTION r7egment-number~| 

I paragraph-name. Qsentence^] ... ... 1 .. 



Only in a subprogram can USING clauses appear in the PROCEDURE 
DIVISION header. 

When a program-name is specified in a CALL statement in a calling 
program, control is transferred to the beginning of the executable 
code in the subprogram (that is, the Procedure Division). 

The identifiers in the USING clause indicate those data items in the 
called program that may reference data items in the calling program. 
The order of identifiers in the CALL statement of the calling program 
and in the PROCEDURE DIVISION header of the called program is 
critical. The items in the USING clauses are related by their 
corresponding positions, not by name. Corresponding identifiers refer 
to a single set of data that is available to both the calling and the 
called programs. 
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The number of identifiers in the USING clause in the PROCEDURE 
DIVISION header must be less than or equal to the number of 
identifiers in the USING clause in the CALL statement in the calling 
program. 



5.1 SYNTACTIC FORMAT OF THE PROCEDURE DIVISION 

The Procedure Division consists of a series of procedure statements 
grouped into sentences, paragraphs, and sections. By grouping the 
statements in this manner, reference can be made to them via a 
procedure-name (that is, a paragraph-name or a section-name). The 
order in which procedure statements are executed can be controlled by 
using the sequence-control verbs ALTER, GO TO, and PERFORM. 



5.1.1 Statements 

Statements fall into three categories: imperative, conditional, and 
compiler-directing, depending upon the verb used. Verbs, in turn, are 
also classified into certain categories. These categories and their 
relationship to the three statement categories are given in Table 5-1. 



5-2 



THE PROCEDURE DIVISION 



Table 5-1 
Procedure Verb and Statement Categories 



Verb 


Verb Category 


Statement Category 








ADD 

COMPUTE 

DIVIDE 

MULTIPLY 

SUBTRACT 

INSPECT 


ARITHMETIC 


IMPERATIVE 


ALTER 

CALL 

ENTER 

ENTRY 

EXIT PROGRAM 

GOBACK 

GO TO 

PERFORM 

STOP 


SEQUENCE-CONTROL 


IMPERATIVE 


ACCEPT 

INSPECT 

MOVE 

SET 

STRING 

UNSTRING 


DATA MOVEMENT 


IMPERATIVE 


CANCEL 

FREE 

INSPECT 

MERGE 

RELEASE 

RETAIN 

RETURN 

SEARCH 

SORT 

TRACE 


MISCELLANEOUS 


IMPERATIVE 


GENERATE 
INITIATE 
TERMINATE 


REPORT 


IMPERATIVE 


ACCEPT 

CLOSE 

DELETE 

DISPLAY 

OPEN 

READ 

REWRITE 

WRITE 


1-0 


IMPERATIVE 


IF 


CONDITIONAL 


CONDITIONAL 


COPY 

ENTER 
USE 


COMPILER-DIRECTING 


COMPILER-DIRECTING 
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5.1.2 Sentences 

A statement or sequence of statements terminated by a period forms a 
sentence. Sentences are classified into the same three categories as 
statements. 

An imperative sentence consists solely of one or more imperative 
statements. Except for imperative sentences containing one of the 
sequence-control verbs, control passes to the next procedural sentence 
following execution of the imperative sentence. If a GO TO or STOP 
RUN statement is present in an imperative sentence, it must be the 
last statement in the sentence. 

A conditional sentence performs some test and, on the basis of the 
results of that test, determines whether a "true" or a "false" path 
should be taken. A conditional sentence is one that contains the 
conditional verb (IF) or one of the option clauses ON SIZE ERROR (used 
with arithmetic verbs) , AT END (used with the READ verb) , or INVALID 
KEY (used with the READ verb for mass storage devices) . 

A compiler-directing sentence consists of a single compiler-directing 
statement. Compiler-directing sentences are used to indicate the end 
point of a PERFORM loop (EXIT) , to copy library entries (COPY) , and to 
specify procedures for input-output errors (USE) . Generally, 
compiler-directing sentences generate no object-program coding. 



5.1.3 Paragraphs 

A single sentence or a group of sequential sentences can be assigned a 
paragraph-name for reference. The paragraph-name must begin in Area A 
(see Section 1.3, Source Program Format) and terminate with a period. 
The first sentence of the paragraph can begin after the space 
following this period or it can begin on the next line, beginning in 
Area B. 

A paragraph-name must be unique within its section, but need not be 
unique within the program. A non-unique paragraph-name must be 
qualified by its section-name except when it is referenced from within 
its own section. 



5.1.4 Sections 

A single paragraph or a group of sequential paragraphs can be assigned 
a section-name for reference. The section-name must begin in Area A 
and be followed by the word SECTION followed by a priority number, if 
desired, followed by a terminating period. 

section-name SECTION nn. 

If the section-name is in the Declaratives portion, it may not have a 
priority number. A USE statement may appear following the terminating 
space after the period. 

The section-name applies to all paragraphs following it until another 
section-header is encountered. 

All section-names must be unique within a program. Sections are 
optional within the Procedure Division, but if a Declaratives portion 
is used there must be a named section immediately following the END 
DECLARATIVES statement. 
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When a section-name is referenced, the word SECTION is not allowed 
the reference. 



in 



5.2 SEQUENCE OF EXECUTION 

In the absence of sequence-control verbs, sentences are executed 
consecutively within paragraphs, paragraphs are executed consecutively 
within sections, and sections are executed consecutively within the 
Procedure Division (with the exception of sections within the 
Declaratives portion, which are executed individually when the related 
condition occurs) . 



5.3 SEGMENTATION AND SECTION-NAME PRIORITY NUMBERS 

COBOL source programs can be written to enable certain portions of the 
Procedure Division code to share the same memory area at object run 
time, thus decreasing the amount of memory required to run the object 
program. The method used to achieve this reduction is called 
segmentation. 

Segmentation consists of dividing the Procedure Division sections into 
logically related groupings called segments. You can define a segment 
by assigning the same priority-number (a priority-number follows the 
word SECTION in the section-header, and can be in the range 00 through 
99) to all the sections you wish included in that segment; these 
sections need not appear consecutively in the source program. 

Segments are classified into three groups, depending upon their 
priority-number. These three groups are described in Table 5-2. 



Table 5-2 
Types of Segments 



Priority Number 


Type 


Description 








None, or 00 up to 


Resident 


This segment is always resi- 


SEGMENT-LIMIT 


Segment 


dent in memory and is never 


minus 1 




overlaid. 


SEGMENT-LIMIT 


Nonresident; 


These segments are non- 


up to 49 


ALTERed GO 


resident and are brought 




TOs retained 


into memory when needed. 
Any ALTERed GO TOs retain 
their most recently set 
values. 


50 through 99 


Nonresident; 


These segments are also non- 




ALTERed GO 


resident and are brought 




TOs reset 


into memory when needed. 
Any ALTERed GO TOs do not 
retain their latest values, 
but are reset to their 
original setting each time 
the segment is reloaded into 
memory. 
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In addition to the resident segment, all data areas described in the 
Data Division are resident at all times. Thus, memory can be thought 
of as being divided into two parts: 

1. A resident area, in which reside all data areas and the 
resident segment, and 

2. A nonresident area, equal to the size of the largest 
nonresident segment, into which each nonresident segment is 
read when needed. Since each nonresident segment reads into 
the same memory area, any previous nonresident segment in 
that area is overlaid and must be brought in again when it is 
to be executed again. 

The resident segment should consist of those sections that constitute 
the main portion of the processing. Infrequently used sections can be 
allocated to the nonresident segments. 



5.4 ARITHMETIC EXPRESSIONS 

An arithmetic expression is an identifier of a numeric elementary 
item, or a numeric literal, or such identifiers and literals separated 
by arithmetic operators. 

Algebraic negation can be indicated by a unary minus symbol. 



5.4.1 Arithmetic Operators 

There are five arithmetic operators that may be used in arithmetic 
expressions. They are represented by specific character symbols that 
must be preceded by a space and followed by a space. 

Arithmetic Operator Meaning 

+ Addition or unary plus 

Subtraction or unary minus 

* Multiplication 

/ Division 

** Exponentiation 

Exponentiation 

5.4.2 Formation and Evaluation Rules 

The following rules for information and evaluation apply to arithmetic 
expressions. 

1. Parentheses specify the order in which elements within an 
arithmetic expression are to be evaluated. Expressions 
within parentheses are evaluated first. Within a nest of 
parentheses, the evaluation proceeds from the elements within 
the innermost pair of parentheses to the outermost pair of 
parentheses. When parentheses are not used, or parenthesized 
expressions are at the same level of inclusiveness, the 
following hierarchal order of operations is implied: 
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First: 


unary +, unary - 


then 


** and ~ 


then 


* and / 


and then 


+ and - 
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(exponentiation) 
(multiplication and division) 
(addition and subtraction) 

2. When the order of a sequence of operations on the same 
hierarchal level (for example, a sequence of + and 
operations) is not completely specified by use of 
parentheses, the order of operations is from left to right. 

3. An arithmetic expression may begin with one of the following: 

(- + variable 
and may end only with one of the following: 
) variable 

4. There must be a one-to-one correspondence between left and 
right parentheses in an arithmetic expression; each left 
parenthesis must precede its corresponding right parenthesis. 



5.5 CONDITIONAL EXPRESSIONS 

A conditional expression causes the object program to select between 
alternate paths (called the true path and the false path) of control 
depending upon the truth value of a test. Conditional expressions can 
be used in conditional (IF) statements and in PERFORM statements 
(formats 3 and 4) . A conditional expression can be one of the 
following types: 

Relation condition (greater than, equal to, less than) 

Class condition (numeric or alphabetic) 

Condition-name condition (level-88 condition-names) 

Sign condition (positive, negative, zero) 

Each of these types is discussed below. 



5.5.1 Relation Condition 

A relation condition causes a comparison of two operands, each of 
which may be an identifier, a literal, a figurative constant, or an 
arithmetic expression. Comparison of two numeric operands is 
permitted regardless of their formats as described by their respective 
USAGE clauses. Comparison of two operands is permitted if each is 
DISPLAY-6, DISPLAY-7, or DISPLAY-9. 

A numeric-edited operand may not be compared to a numeric operand. An 
alphanumeric operand may not be compared to a numeric operand unless 
the alphanumeric operand contains no characters other than numeric 
digits. For example, the statement: 

IF NUM < "2". 
is permissible but the statement: 

IF NUM < "2.0". 
is not. 
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5.5.1.1 Format of a Relation-Condition - The general format for a 
relation condition is 



i dent if ier-1 

literal-1 

ari thmetic -express ion- 1 

f igurati ve -const ant- 1 



relational -operator 



identifier-? 

1 i teral -2 

ari thmetic -express ion -2 

figurative-constant-2 



The first operand is called the subject of the condition;, the second 
operand is called the object of the condition. Either the subject or 
the object must be an identifier or an arithmetic expression. 



5.5.1.2 Relational Operators - Relational operators specify the type 
of comparison to be made in the relation condition. Relational 
operators must be preceded by a space and followed by a space. 



Relational Operator 



Meaning 



IS [NOT] GREATER THAN 

IS [NOT] > THAN 

IS [NOT] LESS THAN 

IS [NOT] < THAN 

IS [NOT] EQUAL (EQUALS) TO 

IS [NOT] = TO 



Greater than, not greater than 



Less than, not less than 



Equal to, not equal to 



5.5.1.3 Comparison of Numeric Items - A 
numeric items determines that the algebra 
than, equal to, or greater than the algebr 
The length of the operands is not signif 
unique value; +0 and -0 are equal. Unsig 
positive. Blanks and tabs are ignored whe 
to zero. Since blanks and tabs make an it 
condition may be established by a no 
comparison with zero. 



comparison between two 
ic value of one item is less 
aic value of the other item, 
icant. Zero is considered a 
ned operands are considered 
n a numeric item is compared 
em nonnumeric, a true zero 
nnumeric test followed by a 



5.5.1.4 Comparison of 
is nonnumeric (or wh 
nonnumeric) , a comparis 
operands is less tha 
with respect to a speci 
Appendix C) . The size 
in the operand. Blanks 
item is compared to 
both in the operand wil 



Nonnumeric Items - For operands whose category 
ere one operand is numeric and the other is 
on results in the determination that one of the 
n, equal to, or greater than the other operand 
fied collating sequence of characters (see 
of an operand is the total number of characters 
and tabs are not ignored when a nonnumeric 
ZERO. The presence of either blanks, tabs, or 
1 cause the test result to be NOT EQUAL. 



There are three cases to consider: operands of equal size, operands 
of unequal size, and operands with differing justification. 
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1. Operands of equal size - If the operands are of equal size, 
characters in corresponding character positions of the two 
operands are compared, starting at the higher-order 
(leftmost) end and continuing through the low-order end. If 

all pairs of characters compare equally through the last 
pair, the operands are considered to be equal. If they do 
not all compare equally, the first pair of unequal characters 
encountered is compared to determine their relative position 
in the collating sequence. The operand containing the 
character that is positioned higher in the collating sequence 
is considered to be the greater operand. 

2. Operands of unequal size - If the operands are of unequal 
size, the comparison of characters proceeds from the 
high-order end to the low-order end until either 

a. A pair of unequal characters is encountered, or 

b. One of the operands has no more characters to compare. 

If a pair of unequal characters is encountered, the 
comparison is determined in the manner described for 
equal-sized operands. 

If the end of one of the operands is encountered before 
unequal characters are encountered, this shorter operand is 
considered to be less than the longer operand unless the 
remaining characters in the longer operand are spaces, in 
which case the two operands are considered equal. 

3. If one operand is right-justified and the other is 
left-justified, they are compared just as they appear in the 
record. That is, PICTURE XXX, VALUE "B" and PICTURE XXX, 
VALUE "B", JUSTIFIED RIGHT are not equal because the first 
appears in the record as B and the second as B. 



5.5.2 Class Condition 

The class condition tests the contents of an item for being wholly 
alphabetic or wholly numeric. 



5.5.2.1 Format of a Class Condition 



■a 4.-*- tc r wot 1 I AL PHABETIC \ 
identifier IS [ NOT J J NUMERIC } 



5.5.2.2 Restrictions - The item named by identifier must be 
described, implicitly or explicitly, as DISPLAY, DISPLAY-6, DISPLAY-7, 
or DISPLAY-9. The NUMERIC test cannot be applied to an item described 
as alphabetic. The ALPHABETIC test cannot be applied to an item 
described as numeric. A compiler diagnostic will result if either of 
the two previously mentioned tests are attempted. 
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5.5.2.3 The ALPHABETIC Test - The ALPHABETIC test result is true when 
the item consists of characters from the alphabet (A through Z) and 
the space or tab. 



5.5.2.4 The NUMERIC Test - The NUMERIC test result is true under the 
following conditions: 

1. For nonnumeric and unsigned numeric items, each character 
must be a digit (0 through 9). No signs are permitted. 
Spaces and tabs cause the test result to be false. 

2. For signed numeric items, the sign must have one of the four 
following representations: a leading graphic sign ("+" or 
"-"), a trailing graphic sign, a leading embedded sign, or a 
trailing embedded sign. All other characters must be digits. 
Spaces or tabs cause the test result to be false. 

NOTE 

An alternative form of NUMERIC test, 
which causes leading and trailing blanks 
and tabs to be ignored, may be selected 
by a switch setting during system 
installation. This alternative form is 
described in Appendix D. 



5.5.3 Condition-Name Condition 

In a condition-name condition, a conditional variable is tested to 
determine whether or not its value is equal to one of the values 
associated with a condition-name (level-88) . 



5.5.3.1 Format of a Condition-Name Condition - The general format for 
a condition-name is 



[_N0TJ condition-name 



If the condition-name is associated with a range of values, then the 
conditional variable is tested to determine whether or not its value 
falls within this range, including the end values. 

The rules for comparing a conditional variable with a condition-name 
value are the same as those specified for relation conditions. 

The result of the test is true if one of the values associated with 
the condition-name equals the value of its associated conditional 
variable. 
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5.5.4 Sign Condition 

The sign condition determines whether or not the algebraic value of a 
numeric operand is less than, greater than, or equal to zero. 



5.5.5.1 Format of a Sign Condition - The general format for a sign 
condition follows. 



identifier \ _. r n j POSITIVE 

arithmetic-expression) IS |_ NOT J NEGATIVE 



The POSITIVE test result is true if the identifier or 
arithmetic-expression is algebraically greater than zero. The 
NEGATIVE test result is true if the identifier or 
arithmetic-expression is algebraically less than zero. The ZERO test 
result is true if the identifier or arithmetic-expression is equal to 
zero or contains all spaces, all tabs, or a combination of spaces and 
tabs. However, any spaces or tabs will make an item nonnumeric. 



5.5.5 Logical Operators 

The interpretation of any of the above conditions is reversed by 
preceding the condition with the logical operator NOT. Any of the 
above types of conditions can be combined by either of two logical 
operators. A logical operator must be preceded by a space and 
followed by a space. 

Logical Operator Meaning 

OR Entire condition is true if either 

or both of the simple conditions 
are true. 

AND Entire condition is true if both of 

the simple conditions are true. 

NOT Entire condition is true if the 

simple condition is false. 



5.5.6 Formation and Evaluation Rules 

A conditional expression can be composed of either a simple-condition 
or a compound-condition. A simple-condition is one that performs a 
single test. A compound-condition is one that contains a string of 
simple-conditions connected by the logical operators AND and/or OR. A 
compound-condition can contain any combination of types of conditional 
expressions (relational, class, condition-name, and sign). 
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The evaluation rules for conditions are analogous to those given for 
arithmetic expressions, except that the following hierarchy applies: 

arithmetic -express ions 

all relational operators 

NOT 

AND 

OR 

Parentheses may be used either to improve readability or to override 
the effects of the hierarchy given above. Each set of conditions 
within a pair of parentheses is reduced to a single condition. When 
this is accomplished, reductions which cross parentheses are done. 

You may use parentheses in arithmetic expressions to specify the order 
in which elements are to be evaluated. Expressions within parentheses 
are evaluated first; within nested parentheses, evaluation proceeds 
from the least inclusive set to the most inclusive set. In the 
absence of parentheses or when parenthesized expressions are at the 
same level of inclusiveness , the following hierarchical order of 
execution is implied: 



1st - Unary plus and minus 

2nd - Exponentiation 

3rd - Multiplication and division 

4th - Addition and subtraction 



NOTE 

The precedence of unary minus over 
exponentiation is different from 
algebraic notation, and from some other 
programming languages. If the 
data-names A and B have the values 3 and 
2 respectively, then the COBOL statement 

COMPUTE C= - A ** B 

yields C as 9 (not -9 as in algebra) . 

Examples 

1. Using parentheses for ease of reading 

The following expression 

A = B OR C > D AND F < G AND H IS ALPHABETIC OR I IS 
NEGATIVE 

can be parenthesized for readability without changing its 
effect as shown below. 

(A = B) OR (C > D AND F < G AND H IS ALPHABETIC) OR (I 
IS NEGATIVE) 

If all the conditions within any of the three sets of 
parentheses are true, then the entire conditional expression 
is true. 

Figure 5-1 illustrates the effect of this statement and the 
order of evaluation. 
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Figure 5-1 Order of Evaluation of a Conditional Expression 

2. Using parentheses to override normal order of evaluation 

To illustrate this usage, a compound-conditional is shown in 
three forms in Figure 5-2, each accompanied by a flow diagram 
showing the result of each. 
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F1 = F2 AND F3 - F4 OR F5 = F6 AND F7 = F8 




F1 = F2 AND (F3 = F4 OR F5 = F6 AND F7 = F8> 




F1 = F2 AND ((F3 = F4 OR F5 = F6) AND F7 = F8) 




Figure 5-2 Order of Evaluation of a Compound-conditional Expression 
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5.5.7 Combined and Negated Combined Conditions 

A combined condition results from connecting conditions with one of 
the logical operators 'AND' or 'OR 1 . The general format of a combined 
condition follows: 



conditi 



«« (/AND I .... ) 

on < < -Qn— > condition > 



"Condition" may be one of the following: 

1. A simple condition 

2. A negated simple condition 

3. A combined condition 

4. A negated combined condition: that is, the 'NOT* logical 
operator followed by a combined condition enclosed within 
parentheses. 

5. Combinations of the above, specified according to the rules 
summarized in Table 5-3 Combinations of Conditions, Logical 
Operators, and Parentheses. 

Although parentheses need never be used when either 'AND' or 'OR' (but 
not both) is used exclusively in a combined condition, parentheses may 
be used to effect a final truth value when a mixture of 'AND', 'OR' 
and 'NOT' is used. (See Table 5-3 Combinations of Conditions, Logical 
Operators, and Parentheses.) 

Table 5-3 indicates the ways in which conditions and logical operators 
may be combined and parenthesized. There must be a one-to-one 
correspondence between left and right parentheses so that each left 
parenthesis occurs to the left of its corresponding right parenthesis. 

Table 5-3 
Conditions, Logical Operators, and Parentheses Combinations 





In a left-to-right sequence of elements: 


Given the 
following 
element 


Location in 
conditional 
expression 


Element, when not 
first, may be 
immediately pre- 
ceded by only: 


Element, when not 
last, may be 
immediately fol- 
lowed by only: 


First Last 










simple- 
condition 


Yes Yes 


OR, NOT, AND, ( 


OR, AND, ) 


OR or AND 


No No 


simple-condition, ) 


simple-condition , 
NOT, ( 


NOT 


Yes No 


OR, AND, ( 


simple-condition, ( 


( 


Yes No 


OR, NOT, AND, ( 


simple-condition , 
NOT, ( 


) 


No Yes 


simple-condition, ) 


OR, AND, ) 
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Thus, the element pair 'OR NOT' is permissible while the pair 'NOT OR' 
is not permissible; 'NOT' is permissible while 'NOT NOT' is not 
permissible. 



5.5.8 Abbreviated Combined Relation Conditions 

Simple or negated simple relation conditions can be combined with 
logical connectives in a consecutive sequence. When a succeeding 
relation condition contains a subject or subject and , relational 
operator that is common with the preceding relation condition, and no 
parentheses are used within such a consecutive sequence, then any 
relation condition except the first may be abbreviated by one of the 
following : 

1. The omission of the subject of the relation condition 

2. The omission of the subject and relational operator of the 
relation condition 

The format for an abbreviated combined relation condition follows: 
relation-condition <{q R \ f NOTJ fre! ational -operator] object 



Within a sequence of relation conditions both of the above forms of 
abbreviation may be used. The effect of using such abbreviations is 
as if the last preceding stated subject were inserted in place of the 
omitted subject, and the last stated relational operator were inserted 
in place of the omitted relational operator. The result of such 
implied insertion must comply with the rules of Table 5-3, 
Combinations of Conditions, Logical Operators, and Parentheses. This 
insertion of an omitted subject and/or relational operator terminates 
once a complete simple condition is encountered within a complex 
condition. 

The interpretation ^applied to the use of the word 'NOT' in an 
abbreviated combined relation condition is as follows: 

1. If the word immediately following 'NOT' is 'GREATER', '>', 
'LESS', '<', 'EQUAL', or '=', then the 'NOT' participates as 
part of the relational operator; otherwise 

2. The 'NOT' is interpreted as a logical operator and, 
therefore, the implied insertion of subject or relational 
operator results in a negated relation condition. 

Some examples of abbreviated combined and negated combined relation 
conditions and expanded equivalents follow. 

Abbreviated Combined 
Relation Condition Expanded Equivalent 

a > b AND NOT < c OR d ( (a > b) AND (a NOT < c) ) OR (a 

NOT < d) 

a NOT EQUAL b OR c (a NOT EQUAL b) OR (a NOT EQUAL 

C) 

NOT a = b OR c (NOT (a = b) ) OR (a = c) 
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NOT (a GREATER b OR < c) NOT ((a GREATER b) OR (a < c) ) 

NOT (a NOT > b AND c AND NOT d) NOT ((((a NOT > b) AND (a NOT > 

c)) AND (NOT (a NOT > d) ) ) ) 



5.6 COMMON OPTIONS ASSOCIATED WITH THE ARITHMETIC VERBS 

Associated with the five arithmetic verbs (ADD, COMPUTE, DIVIDE, 
MULTIPLY, and SUBTRACT) are two options: the ROUNDED option and the 
SIZE ERROR option. These two options are described here to avoid the 
necessity of including their descriptions with each of the arithmetic 
verbs. 



5.6.1 The ROUNDED Option 

If the ROUNDED option is specified, the absolute value of the item is 
increased by 1 if the leftmost truncated digit is greater than or 
equal to 5. 

Example : 

value: 567-8756 

resultant-identifier picture: 999V99 

stored result without 

ROUNDED option: 567-87 

stored result with 

ROUNDED option: 567-88 

When the low-order positions in a resultant-identifier are represented 
by the symbol P in the PICTURE associated with the 
resultant-identifier, rounding or truncation occurs relative to the 
rightmost integer position for which storage is allocated. 

Example: value: 5388 

resultant-identifier picture: 99PP 
stored result without 

ROUNDED option: 53 
stored result with 

ROUNDED option: 54 



5.6.2 The SIZE ERROR Option 

If, after decimal point alignment, the number of significant digits in 
the result of an arithmetic operation is greater than the number of 
integer positions provided in the result-identifier, a size error 
condition occurs. Division by zero always causes a size error 
condition. The size error condition applies to both the intermediate 
results and the final result of an arithmetic operation. If the 
ROUNDED option is specified, rounding takes place before checking for 
size error. When such a size error does occur, the subsequent action 
depends upon whether or not the SIZE ERROR option is specified. 

If the SIZE ERROR is not specified and a size error condition occurs, 
the value of the resultant-identifier is unpredictable, and no 
additional action is taken. 

If SIZE ERROR is specified, and a size error condition occurs, then 
the values of the resultant-identifier (s) affected by the size errors 
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are not altered. Values for resultant-identif ier (s) for which no size 
error condition occurs are unaffected by size errors that occur for 
other resultant-identif ier (s) . After completion of the execution of 
the arithmetic operation, the statement (s) after SIZE ERROR is 
executed. 

Example ADD A TO B ON SIZE ERROR GO TO OVERFLW 

A: 954 

B: PICTURE IS 999; VALUE 954. 

Result: The contents of B are left unchanged and 
control is transferred to the paragraph 
or section named OVERFLW 



5.7 THE CORRESPONDING OPTION 

The CORRESPONDING option is used in the formats of two of the 
arithmetic verbs (ADD and SUBTRACT) and in the format of the MOVE 
verb. 

For the purpose of this discussion, d(l) and d(2) represent 
identifiers that refer to group items. A pair of data items, one from 
d(l) and one from d(2), correspond if the following conditions exist: 

1. A data item in d(l) and a data item in d(2) have the same 
data-name and the same qualification up to, but not 
including, d(l) and d(2). 

2. Both of the data items are elementary numeric data items in 
the case of an ADD or SUBTRACT statement with the 
CORRESPONDING option. 

3. Neither d(l) nor d(2) may be data items with level-number 66, 
77, or 88. 

4. Each data item subordinate to d(l) or d(2) that contains a 
RENAMES, a REDEFINES or an OCCURS clause is ignored. 
However, d(l) and d(2) may have REDEFINES or OCCURS clauses 
or be subordinate to data items with REDEFINES or OCCURS 
clauses. 

See the sections ADD, MOVE, and SUBTRACT for information on the 
specific formats and results of the use of the CORRESPONDING option. 



5.8 DETERMINATION OF USAGE IN ARITHMETIC COMPUTATIONS 

If a programmer describes a numeric field as having USAGE DISPLAY-6, 
DISPLAY-7, DISPLAY-9, or COMP-3, the compiler converts this data to 
fixed-point binary when performing arithmetic computations with it. 
If the field contains 10 or fewer digits, it is converted to 
single-precision fixed-point binary. Conversion to double-precision 
fixed-point binary is performed if the field contains more than 10 
digits, A field described as COMPUTATIONAL (or INDEX) is fixed-point 
binary, and single-precision for 10 or fewer digits, double-precision 
for more than 10 digits. A field described as COMPUTATIONAL-1 is 
single precision floating-point binary. 

When any arithmetic computation is performed, the arithmetic usage 
(single-precision fixed-point, double-precision fixed-point, or 
floating-point) used for each operation is determined from the usages 
of the two operands of the computation. If either operand is 
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floating-point, the operation is performed in floating-point 
arithmetic. If neither operand is floating-point, but one operand is 
double-precision fixed-point, the operation is performed in 
double-precision fixed-point arithmetic. Otherwise, the operation is 
performed in single-precision fixed-point arithmetic. If both 
operands are constants, the operation is performed in single- or 
double-precision fixed-point arithmetic, as appropriate. 

If any nonnumeric characters appear in the DISPLAY-6, DISPLAY-7, or 
DISPLAY-9 field that is to be converted, the compiler attempts to 
convert them to binary; however, in many cases, undefined results can 
occur. When DISPLAY-6, DISPLAY-7, and DISPLAY-9 characters are 
converted to binary, the following rules apply. 

through 9 need no conversion. 

A through I are converted to 1 through 9. 

?,[,{ are converted to 0. 

J through R are converted to 1 through 9, and the field 

is made negative if they are found in the 
high-order or low-order digit, unless an 
explicit sign is present. 

:,],],} are converted to 0, and the field is made 

negative if it is found in the high-order or 
low-order digit unless an explicit sign is 
present . 

Nulls are ignored. 

Leading spaces 

and tabs are ignored. 

+ and - are treated as sign characters. 

Scanning of a field proceeds from left to right, stopping when one of 
the following conditions is met: 

1. The entire field has been scanned. 

2. A trailing space, tab, plus, or minus is seen. 

If both leading and trailing signs appear in the field, the trailing 
sign will be ignored. 



5.9 PROCEDURE DIVISION VERB FORMATS 

The format of each Procedure Division verb is given on the following 
pages. The verbs are presented in alphabetical order. 

The word "identifier" is a data-name followed, as required, by any 
qualification, subscripts, and/or indexes necessary to make the 
data-name unique. 
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ACCEPT 

5.9.1 ACCEPT 

Function 

Formats 1 and 2 of the ACCEPT statement cause low-volume data to be 
read from the user's terminal. 

Format 3 of the ACCEPT statement, the ACCEPT COUNT statement, causes 
the MESSAGE COUNT field to be updated to include the number of 
messages in a queue or sub-queue maintained by MCS-10. This is valid 
only for users of TOPS-10. 

General Format 

Format 1: 

ACCEPT i dentif ier-1 i dent if ier-2 ... [JiROJM mneumoni c-name] 

Format 2: 

I Mil) 
ACCEPT identifier FROM { QAX \ 

( TIME J 

Format 3: 

ACCEPT cd-name MESSAGE COUNT 

Technical Notes 

1. The ACCEPT statement causes the next set of data available 
from the terminal to replace the contents of the items named 
by identif ier-1 , identif ier-2 ,.. . . 

2. If the FROM option is specified, the mnemonic-name must 
appear in the CONSOLE IS clause of the SPECIAL-NAMES 
paragraph. 

3. When the data to be read for one or more ACCEPT statements is 
numeric, a comma (,), space, or tab is used as a delimiter 
separating the data items. 

4. When the data to be read for one or more ACCEPT statements is 
alphanumeric, each data item is delimited by a line-feed, 
altmode, form-feed, or vertical tab. 

5. The ACCEPT statement will read from left to right into each 
identifier a maximum of 1023 characters that have been typed 
in. Two characteristics determine how the characters are 
read into the identifier. These characteristics are the size 
of the data item and the number of characters that are typed 
in. If the data item contains fewer than 1023 characters, 
two situations can occur: 

a. If the user types in fewer characters than are allowed by 
the data item, the characters are left justified and the 
remaining area is filled with spaces. 
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ACCEPT (Cont.) 

b. If the user types in more characters than are allowed by 
the data item, the characters are left justified and 
truncated. 

Likewise, if the data item contains more than 1023 
characters, two situations can occur: 

a. If the user types in fewer than 1023 characters, the 
characters are left justified and the remaining area is 
filled with spaces. 

b. If the user types in more than 1023 characters, only the 
first 1023 characters are left justified, and the 
remaining area specified by the data item is filled with 
spaces. 

6. When the ACCEPT MESSAGE COUNT statement is executed, the 
contents of the area specified by the communication 
description entry must contain the name of the symbolic queue 
to be tested. Testing the condition updates the contents of 
the data items replaced by data-name-ID (STATUS KEY) and 
data-name-2 (MESSAGE COUNT) of the areas associated with the 
communication description entry. 
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ADD 



5.9.2 ADD 



Function 



The ADD statement computes the sum of two or more numeric operands and 
stores the result. 



General Format 

. nn I identifier- 1 identifier-2 Tn ,.„„+..; fiav , m rbniiNinrrTl 

^ jliteral-1 [_literal-2 J "• ™ identi fier-m |_R0UNDEDj 

n | ~R0 UN PEP ] ... ["ON SIZE ERROR imperative-statement] 

]■■■ 



identifier- 



identi fier-1 
1 iteral-1 

GIVING identifier-m 



identifier-2 
literal-2 



identifier- 3 
literal-3 



Q)N SIZE ERROR imperative-statement"] 



[" "ROUNDED" ] identifier-n [ "ROUNDED! 



ADt> ( CORRESPONDING f identi fier-1 TO identifier-2 [ ROUNDED *] 



TON SIZE ERROR imperative-statement"] 



Technical Notes 



Each ADD statement must contain at least two operands (that 
is, an addend and an augend). In formats 1 and 2, each 
identifier must refer to an elementary numeric item, except 
that identifiers appearing to the right of the word GIVING 
may refer to numeric-edited items. In format 3, each 
identifier must refer to a group item. 



Each literal must be a numeric 
constant ZERO is permitted. 



literal? the figurative 



The composite of all operands (that is, the data item 
resulting from the superimposition of all operands aligned by 
decimal point) must not contain more than 19 decimal digits 
for the standard compiler and not more than 36 digits for the 
BIS-compiler . In either case, a maximum of 18 digits can be 
stored in the receiving field. (See Section 1.1 for a 
definition of the BIS-compiler.) 
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3. Format 1 causes the values of the operands preceding the word 
TO to be algebraically summed. The resultant sum is then 
added to the current value of identifier-m and this result 
replaces the current value in identifier-m. If other 
identifiers follow, the same process is repeated for each of 
them. 

4. Format 2 causes the values of the operands preceding the word 
GIVING to be algebraically summed. The resultant sum then 
replaces the current contents of identifier-m. If other 
identifiers follow, their contents are also replaced by this 
resultant sum. The current values of identifier-m, 
identif ier-n, . . . do not enter into the arithmetic 
computation. 

5. Format 3 causes the data items in the group item associated 
with identifier-1 to be added to the current value of the 
corresponding data items associated with identif ier-2, and 
each result replaces the value of the corresponding 
data-items associated with identif ier-2. The criteria used 
to determine whether two items are corresponding are 
described in Section 5.7, The CORRESPONDING Option. 

6. The ROUNDED and SIZE ERROR options are described in Section 
5.6, Common Options Associated with Arithmetic Verbs. 
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ALTER 



5.9.3 ALTER 



Function 



The ALTER statement changes the object of one or more GO TO 
statements. 

General Format 

ALTER procedure-name- 1 TO [PROCEED TOj procedure-name-2 
procedure-name-3 TO [^PROCEED T0~J procedure-name-4 



Technical Notes 

1. During execution of the object program, the ALTER statement 
modifies the GO TO statement in the paragraph named 
procedure-name-1 , procedure-name-3, ... replacing the object 
of the GO TO by procedure-name-2, procedure-name-4, ..., 
respectively. 

2. Each procedure-name-1, procedure-name-3,.... must be the name 
of a paragraph that contains nothing but a single GO TO 
statement without the DEPENDING option. 

3. Each procedure-name-2, procedure-name-4,... must be the name 
of a paragraph or section within the Procedure Division. 

4. A GO TO statement in a section whose priority is greater than 
or equal to 50 must not be referred to by an ALTER statement 
in a section with a different priority. 

5. An ALTER statement in a procedure not in the DECLARATIVES 
portion of the program may not reference a procedure name 
within the DECLARATIVES; conversely, an ALTER statement 
within the DECLARATIVES may not reference a procedure-name 
not in the DECLARATIVES. 

6. Restrictions similar to those in Note 5 also apply to the 
input procedures and to the output procedures associated with 
SORT and MERGE verbs. 

7. For program segments with priorities of 50 and greater, the 
changes made by ALTER statements will be lost when segments 
are overlaid. 
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CALL 

5.9.4 CALL 

Function 

The CALL statement is used to transfer control to a subprogram. 

General Format 

paii lltTnllVnllll USING data-name-1 rdata-name-2~| ... 
CALL < program-name > L_ _J | 

/ entry-name J 
[~0N OVERFLOW imperative-statement] 

Technical Notes 

1. Program-name is a one to six character name (PROGRAM-ID) of 
the subprogram to be called. Entry-name is a one to six 
character name of an entry point in the subprogram. Either 
name can be enclosed in quotation marks, but can contain only 
letters and digits. 

2. If the program-name is used, the entry point will be at the 
beginning of the executable code in the subprogram. 

3. Called programs can call other subprograms, but a called 
program cannot call, either directly or indirectly, any part 
of itself or the program that called it. 

4. The number of operands in the USING clause of the CALL 
statement must be greater than or equal to the number of 
operands in the ENTRY Statement or PROCEDURE DIVISION header 
in the subprogram. 

5. Each of the operands in the USING clause may be any item 
defined in the File, Working-Storage, or Linkage section of 
the calling program. However, these items must be 
word-aligned; that is, they must begin on a word boundary. 
01- and 77-level items are always word-aligned. Any other 
item can be word-aligned by means of the SYNCHRONIZED LEFT 
clause. 

6. The identifiers in the USING clause indicate those data items 
in the calling program that may be referenced (or whose 
subordinate parts may be referenced) in the called program. 
The order of the identifiers in the CALL statement in the 
calling program and in the PROCEDURE DIVISION header or ENTRY 
statement of the calling program is critical. The items in 
the USING clause are related by their corresponding 
positions, not by name. Corresponding identifiers refer to a 
single set of data that is available to both the calling and 
called programs. 
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7. The first time a called program is entered, its state is that 
of a fresh copy. Subsequently, if the subprogram is not in a 
LINK overlay, its state when entered is exactly as it was 
left after the last exit from it. That is, all internal 
variables, altered GO TOs, and the like are exactly as they 
were left. However, external data (that is, data described 
in the Linkage Section) may have been changed since the last 
exit. 

If the subprogram is in a LINK overlay and it is entered 
again, its state is exactly as it was left after the last 
exit from it provided that the subprogram has not been 
cancelled or overlaid. If the subprogram has been cancelled 
or overlaid, its state is that of a fresh copy. 

8. The CALL identifier clause works only when the following 
conditions are met: 

a. There is only one subprogram per overlay. 

b. Each subprogram has only one entry point. 

c. The overlay name is the same as the subprogram name. 

9. Refer to the COBOL-74 Usage Material, Part 3 of this manual, 
for more information on subprograms. 
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CANCEL 

5.9.5 CANCEL 

Function 

The CANCEL statement releases the memory areas occupied by the 
programs named in the clause. 

General Format 

CANCEL 



iidentifier-1 I 
subprogram-1 ( 



identifier- 2 
subprogram-2 



Technical Notes 

1. The CANCEL statement can be used either to reload a segment 
of a segmented COBOL program or to cancel a subprogram that 
has been loaded into an overlay link by LINK. (Refer to the 
COBOL-74 Usage Material, Part 3 of this manual, for 
information on specifying LINK overlays and on subprograms.) 
Note 2 describes the first case while the remaining notes 
describe the second. 

2. When you cancel a segment of a program you cause the 
object-time system to read your .EXE file and copy an 
initialized version of the segment into memory. 

3. After a subprogram has been cancelled, a subsequent call to 
the subprogram will cause a freshly initialized copy to be 
brought into memory. 

4. Cancellation of a subprogram causes the entire link in which 
it resides and all lower-level links to be cancelled. 

5. A subprogram in the root link or higher in the current 
overlay structure cannot be cancelled. If an attempt is made 
to do so, the CANCEL statement will be ignored and a warning 
message issued at runtime. 

6. A subprogram cannot cancel itself or any subprogram that 
resides in an overlay link with it. An attempt to do either 
will result in the CANCEL statement being ignored and a 
warning message issued at runtime. 

7. Cancellation of a subprogram higher in the current calling 
sequence is also an illegal operation. But, if the 
subprogram being cancelled is in a lower-level link and 
higher in the calling sequence, it could be cancelled without 
being detected as an error. This would cause the return from 
the program to reach an undefined location. 
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CLOSE 



5.9.6 CLOSE 



Function 



The CLOSE statement terminates the processing of input and output 
files, reels, or units. 



General Format 



CLOSE file-name-1 




NO REWIND 

LOCK 

DELETE 

REMOVAL 



file-name-2 



i REEL \ 
(UNIT/ 




NO REWIND 

LOCK 

DELETE 

REMOVAL 



CLOSE file-name-1 [WITH L0CK~ ] file-name-2 PwiTH L0CK~] 



Technical Notes 

1. Each filename must appear as the subject of an FD entry in 
the File Section of the Data Division. 

2. The DELETE option applies only to disk and DECtape files. If 
this option is included, the file will be deleted from the 
device. 

3. The REEL, UNIT, and NO REWIND options apply only to magnetic 
tape files; UNIT is synonymous with REEL. 

4. The FOR REMOVAL option unloads magnetic tape. The file 
cannot be re-opened without intervention by the operator. 

5. For the purpose of showing the effect of various CLOSE 
options as applied to the various storage media, all input, 
output, and input-output files are divided into the following 
three mutually exclusive categories: 

a. NON-REEL A file whose device is such that the concepts 
of REWIND, REEL, or UNIT have no meaning. 
This category includes files residing on 
disk, punched cards, paper tape, line 
printer, and terminal. 
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b. SINGLE REEL A file that is entirely contained on one reel 

or unit. 

c. MULTI-REEL A file that may be contained on more than one 

reel or unit. 

The results of each CLOSE option for each of the above types 
of files are summarized in Table 5-4. The definitions for 
the symbols used in this table are given below. Where the 
definition depends upon whether the file is an input or 
output file, alternate definitions are given; otherwise, the 
single definition given applies to both input and output 
files. 

Codes Used in Table 5-4 

A Any subsequent reels of this file will not be processed. 

B The current reel is not rewound. 

C Standard CLOSE File Procedure is followed: 

INPUT and 1-0 Files 

An input file is considered to be at the end-of-file if 
the imperative-statement in the AT END clause of a READ 
for the file has been executed, and no CLOSE statement 
for the file has been executed. 

OUTPUT Files 

If LABEL RECORDS are STANDARD, an ending label is 
created and written on the output medium. 

D The current reel is rewound and unloaded. 

E Any attempt to subsequently OPEN this file will result 
in an error message being typed and the run terminated. 

F Standard CLOSE REEL Procedure is followed: 

INPUT Files 

1. If the file is assigned to more than one device, the 
next device specified in the ASSIGN clause becomes 
the current device. If no other device is 
specified, the first device mentioned becomes the 
current device. 

2. The standard beginning reel label procedure is 
performed for the new reel. 

OUTPUT and 1-0 Files 

1. The standard ending reel label procedure is 
performed. 
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2. If the file is assigned to more than one device, the 
devices are swapped. A halt occurs to allow the 
operator to mount an available reel. 

3. The standard beginning reel label procedure is 
performed . 

G The tape is rewound. 

H The file is deleted from the device. However, if the 
file is a sequential file on disk that is open for 
output in supersede mode, the original file will remain 
intact (that is, the original, file will not be 
superseded nor deleted) . 

X Illegal. This is an illegal combination of a CLOSE 
option and a file type. 

6. If a file is OPENed but not CLOSEd before the STOP RUN 
statement is executed, the file will be automatically CLOSEd. 
Any records still retained by a RETAIN statement will 
automatically be freed by a CLOSE statement. 

7. If the file has been specified with an OPTIONAL clause in the 
File-Control Paragraph of the Environment Division and the 
file was not present for this run, the CLOSE has no effect. 

8. If a CLOSE statement without the REEL or UNIT option has been 
executed for a file, a READ, WRITE, or CLOSE statement for 
that file must not be executed until another OPEN for that 
file has been executed. 
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Table 5-4 
CLOSE Options and File Types 



CLOSE 
Options 


File Type 












NON-REEL 


SINGLE 
REEL/UNIT 


MULTI-REEL 


CLOSE 


C 


C,G 


C,G,A 


CLOSE 
WITH LOCK 


C,E 


C f G f E 


C,G,E,A 


CLOSE WITH 
NO REWIND 


X 


C,B 


C,B,A 


CLOSE REEL 


X 


X 


F,G 


CLOSE REEL 
WITH LOCK 


X 


X 


F,D 


CLOSE REEL 
FOR REMOVAL 


X 


X 


F,D,G 


CLOSE REEL 
WITH NO 
REWIND 


X 


X 


F,B 


CLOSE WITH 
DELETE 

i .... 


C r H 


X 


X 



5-30 



THE PROCEDURE DIVISION 

COMPUTE 



5.9.7 COMPUTE 



Function 



The COMPUTE statement assigns to a data item the value of a numeric 
data item, literal, or arithmetic expression. 



General Format 



COMPUTE identifier- 1 [^ ROUNDED J 



identi fi er-2 I 

literal > [ ROUNDED J 

arithmetic-expression J 



( IS EQUAL TO ) 

'v EQUALS \ arithmetic-expression f~0N SIZE ERROR imperative-statement"] 

(= J 



Technical Notes 

1. The COMPUTE statement allows you to combine arithmetic 
operations without the restrictions on the composite of 
operands and/or receiving data items imposed by the 
arithmetic statements ADD, SUBTRACT, MULTIPLY, and DIVIDE. 
If the composite operand exceeds 19 decimal digits, the 
composite is converted to COMP-1 format. This will lead, 
however, to a loss of precision. 

2. Identifier-1 must be an elementary numeric or 
numeric-edited item. 

3. Identifier-2 must be an elementary numeric item. Literal-2 
must be a numeric literal. 

The identifier-2 and literal-1 options provide a method for 
setting the value of identifier-1 equal to identifier-2 or 
literal-1. 

4. The rules for forming arithmetic expressions and the order 
of evaluation are given in Section 5.4, Arithmetic 
Expressions. 

5. The ROUNDED and SIZE ERROR options are described in Section 
5.6, Common Options Associated with the Arithmetic Verbs. 
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5.9.8 DELETE 

Function 

The DELETE statement removes a specified record from a file whose 
organization is RELATIVE or INDEXED. 

General Format 

DELETE file-name RECORD [ jN VALID KEY Imperative-statement] 

Technical Notes 

1. Record-name must be a record associated with a file whose 
organization is RELATIVE or INDEXED. 

2. When the DELETE statement is executed, the object-time 
system removes from the file the record which has a key 
equal in value to the RELATIVE KEY (for relative files) or 
the RECORD KEY (for indexed files) . If no such record 
exists, the statement (s) associated with the INVALID KEY 
clause is executed. 

3. At the time that the DELETE statement is executed, the file 
must be open for OUTPUT or INPUT-OUTPUT. 

4. The INVALID KEY clause must not be specified for a DELETE 
statement that references a file that is in 
sequential-access mode. It must be specified for a DELETE 
statement that references a file that is not in 
sequential-access mode, and for which no USE procedure is 
specified. 

5. For files in the sequential-access mode, the last 
input-output statement executed for file-name prior to the 
execution of the DELETE statement must have been a 
successfully executed READ statement. The OTS logically 
removes from the file the record that was accessed by that 
READ statement. 

6. The execution of a DELETE statement does not affect the 
current record pointer or the contents of the record area 
associated with file-name. The execution of the DELETE 
statement causes updating of the value of any specified 
FILE STATUS data item associated with file-name. 
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5.9.8 DELETE 
Function 

The DELETE statement removes a specified record from a file whose 
organization is RELATIVE or INDEXED. 

General Format 

DELETE file-name RECORD [ jN VALID KEY imperative-statement]] 

MR-S-1 322-81 

Technical Notes 

1. Record-name must be a record associated with a file whose 
organization is RELATIVE or INDEXED. 

2. Alternate keys cannot be used with this verb. 

3. When the DELETE statement is executed, the object-time 
system removes from the file the record which has a key 
equal in value to the RELATIVE KEY (for relative files) or 
the RECORD KEY (for indexed files) . If no such record 
exists, the statement (s) associated with the INVALID KEY 
clause is executed. 

4. At the time that the DELETE statement is executed, the file 
must be open for OUTPUT or INPUT-OUTPUT. 

5. The INVALID KEY clause must not be specified for a DELETE 
statement that references a file that is in 
sequential-access mode. It must be specified for a DELETE 
statement that references a file that is not in 
sequential-access mode, and for which no USE procedure is 
specified . 

6. For files in the sequential-access mode, the last 
input-output statement executed for file-name prior to the 
execution of the DELETE statement must have been a 
successfully executed READ statement. The OTS logically 
removes from the file the record that was accessed by that 
READ statement. 

7. The execution of a DELETE statement does not affect the 
current record pointer or the contents of the record area 
associated with file-name. The execution of the DELETE 
statement causes updating of the value of any specified 
FILE STATUS data item associated with file-name. 
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5.9.9 DISPLAY 

Function 

The DISPLAY statement causes low-volume data to be written to your 
terminal. 

General Format 



DISPLAY iHteral-1 \ \ {Identifier^} 
DISPLAY lidentifier-lf lliteral-2 i 



[ UPON mnemonic-name] [ WITH NO ADVANCING] 



MR-S-1050-81 



Technical Notes 



The contents of each operand are written on 
in the order listed. 



your terminal 



Each of the literals can be numeric, nonnumeric, or one of 
the figurative constants. If a figurative constant is 
specified as one of the operands, only a single occurrence 
of that constant is written on the device. The figurative 
constants SPACE, SPACES, or ALL SPACES, or a literal 
defined as spaces will not DISPLAY as they are considered 
as trailing spaces on the line and the optimized OTS does 
not print trailing spaces. 



The mnemonic-name must appear in the CONSOLE clause in 
Special-Names paragraph of the Environment Division. 



the 



If WITH NO ADVANCING is specified, the terminal does not 
advance to the next line. Thus, printing or type-in can 
continue on the same line. If you do not specify the WITH 
NO ADVANCING clause, the terminal advances to the next line 
after printing the text of the DISPLAY statement. 
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2. Each DIVIDE statement must contain two operands (that is, a 
dividend and a divisor). Both of these operands 
(identif ier-1 and identif ier-2) must refer to elementary 
numeric items. Identifier-3 may be an elementary numeric or 
numeric-edited item. Each literal-1 or literal-2 must be a 
numeric literal. Identifier-4 may be an elementary numeric 
or numeric-edited item. 

3. The ROUNDED and SIZE ERROR options are described in Section 
5.6, Common Options Associated with Arithmetic Verbs. 

4. If the REMAINDER clause is used, the resulting remainder 
replaces the value of identifier-4. 

5. The data item resulting from the divide operation (that is, 
the sum of the digits in the dividend and the digits in the 
fractional part of the divisor) must not contain more than 20 
decimal digits for the non-BIS compiler and not more than 36 
digits for the BIS-compiler . In either case, a maximum of 18 
digits can be stored in the receiving field. (See Section 
1.1 for a definition of the BIS-compiler.) 

6. The remainder is checked for a size error after the quotient 
is checked, whether or not the quotient has a size error. If 
either the quotient or the remainder has a size error, the 
object-time system follows the procedure described in Section 
5.6, Common Options Associated with Arithmetic Verbs. 

7. The ROUNDED option does not apply to the remainder; the 
remainder is always truncated. 
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5.9.11 ENTER 



Function 



The ENTER statement allows the execution of MACRO and FORTRAN 
subroutines in conjunction with the COBOL program. 



General Format 



ENTER 



( MACRO ) 
f FORTRAN 
COBOL 



USING 



( identi fier-1 ) 

[literal-1 > 

( procedure-name- 1 ) 



( identi fier-2 ) 

] literal -2 [ 

( procedure-name-2 j 



Technical Notes 

1. MACRO refers to MACRO-10 or MACRO-20 assembly language and 
FORTRAN to the TOPS-10 or the TOPS-20 FORTRAN language. 

2. The program-name can be enclosed in quotation marks. 

3. The ENTER statement generates a subroutine call and specifies 
the address where the items associated with the USING clause 
are located. (Refer to the COBOL-74 Usage Material, Part 3 
of this manual, for more information on the ENTER statement.) 

4. ENTER COBOL is equivalent to CALL. 
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5.9.12 ENTRY 

Function 

The ENTRY statement establishes an entry point in a subprogram. 



General Format 

ENTRY entry-name 



US^NG identifier- 1 Q'denti fier-f] 



Technical Notes 

1. The ENTRY statement can only be used in a subprogram. 

2. Control is passed to the entry point by a CALL statement in a 
calling program. 

3. Entry-name is a one to six character name that can contain 
only letters and digits. It can, however, be enclosed in 
quotation marks. This name must not be the same as any other 
entry-name or PROGRAM-ID in any program with which the 
subprogram containing it is loaded. 

4. The identifiers listed in the USING clause must be defined as 
01- or 77-level items in the Linkage Section of the 
subprogram containing the ENTRY statement. 

5. The number of operands in the USING clause of an ENTRY 
statement must be less than or equal to the number of 
operands in any CALL statement referencing that ENTRY 
statement. 

6. The identifiers in the USING clause indicate those data items 
in the called program that may reference data items in the 
calling program. The order of identifiers in the CALL 
statement in the calling program and in the ENTRY statement 
in the called program is critical. The items in the USING 
clauses are related by their corresponding positions, not by 
name. Corresponding identifiers refer to a single set of 
data that is available to both the calling and called 
programs. 

7. At runtime, ENTRY statements are ignored unless there are 
specific calls to them. 

8. Refer to the COBOL-74 Usage Material, Part 3 of this manual, 
for more information on subprograms. 
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5.9.13 EXIT 

Function 

The EXIT statement provides a common end point for a series of 
routines executed by a PERFORM or USE statement. 

General Format 

paragraph-name. EXIT . 



Technical Notes 

1. EXIT must be the only sentence in the paragraph. 

2. The EXIT statement may be used at the end of a section in the 
Declaratives, or to provide an end point for a series of 
paragraphs that are performed. When you use EXIT at the end 
of the range of a PERFORM or USE, you can provide a variety 
of exits from the performed procedure by making each point at 
which an exit is required a transfer to the EXIT paragraph. 
However, unless EXIT is specified as the end of the range of 
a PERFORM or USE or is placed as the last paragraph in the 
range of a PERFORM or USE, it is ignored. 

Example : 

PERFORM TAX-ROUTINE THROUGH EXIT-RTE. 



TAX-ROUTINE. 

IF TOTAL-TAX IS EQUAL TO OR GREATER THAN TAX-LIMIT 
GO TO EXIT-RTE. 
MULTIPLY. 



DEDUCTION-RTE. 

IF NO-OF-DEPENDENTS IS EQUAL TO ZERO 

GO TO EXIT-RTE. 

MULTIPLY NO-OF-DEPENDENTS BY DEP-DEDUCT 



EXIT-RTE. EXIT. 

If control reaches an EXIT statement and no associated 
PERFORM or USE statement is active or if EXIT is not the last 
paragraph in the range of a PERFORM or USE statement even if 
the PERFORM or USE statement is active, control passes 
through the EXIT paragraph to the first statement of the next 
paragraph. 
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5.9.14 EXIT PROGRAM 



Function 



The EXIT PROGRAM statement is used to return control from a subprogram 
to its calling program. 

General Format 

EXIT (jROGRAM J • 



Technical Notes 

1. EXIT PROGRAM can only appear in a subprogram. 

2. When an EXIT PROGRAM statement is executed, control is 
returned to the calling program at the statement immediately 
following the CALL statement. 

3. If an EXIT PROGRAM statement is encountered in a subprogram 
that is operating as a main program, it is ignored. 

4. Refer to the COBOL-74 Usage Material, Part 3 of this manual, 
for more information on subprograms. 
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5.9.15 FREE 



Function 

The FREE statement explicitly frees records that have been retained in 
a RETAIN statement. 



General Format 



FREE < 



fi le-name-1 < 



RECORD 



KEY 



identif ier-1 
literal-1 



EVERY RECORD 



RECORD 



f ile-name-2 



KEY 



identifier-2 
literal-2 



EVERY RECORD 



j 



EVERY RECORD 



[ NOT RETAINED statement-1 [ statement-2] ... ] ± * 



Technical Notes 

1. Filename-1, f ilename-2... . are the names of files containing 
records that have been retained. Thus, they are files that 
have been opened for simultaneous update. 

2. Identif ier-1, identifier-2... and literal-1, literal-2... 
specify the value of a key. This key refers to the record to 
be freed in the file. 

3. Statement-1, statement-2... are any valid COBOL statements. 

4. The FREE statement is needed to explicitly free records that 
have not been implicitly freed by an I/O statement. This 
could occur when the RETAIN statement contains the UNTIL 
FREED phrase, when an I/O statement is not issued after the 
RETAIN statement, or when the FOR clause of the RETAIN 
statement specifies ANY VERB. Refer to the RETAIN statement, 
Section 5.9.29, for a description of its function and syntax. 
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5. The EVERY RECORD phrase is used to free all records retained 
or to free all records retained in a specific file. 

6. The NOT RETAINED phrase specifies the COBOL statements to be 
executed when one or more records to be freed are not 
currently retained. If the NOT RETAINED phrase is not 
included and the records to be freed are not currently 
retained, the program proceeds and you are not notified of 
the possible error. 

7. When an EVERY RECORD phrase is used, the statements in the 
NOT RETAINED phrase are executed only if no records are 
currently retained or only if no records are currently 
retained in the specified file. 

8. If the FREE statement includes a file that was not opened for 
simultaneous update, the NOT RETAINED statements, if present, 
are executed. Otherwise, the program continues and you are 
not notified of the error. 

9. You can mix records from sequential, relative, and 
indexed-sequential files in the same FREE statement. 

10. All records of a file are freed automatically when the file 
is closed including those records that were retained with an 
UNTIL FREED clause in the RETAIN statement. 

11. The record to be freed, whether or not the KEY phrase is 
specified, depends on the organization of the file. Each 
organization is described separately below. 

a. Sequential Files 

If the KEY phrase is specified, the value of the key 
refers to the record with that value in the RETAIN 
statement. That is, a KEY value of 6 in the FREE 
statement frees the record defined with a KEY value of 6 
in the RETAIN statement. 

If the KEY phrase is not specified, the record freed is 
that record defined with a KEY value of in the RETAIN 
statement. 

The value of a key can be specified by any identifier, 
which can be subscripted and/or qualified, provided that 
its USAGE is COMPUTATIONAL or INDEX. The value of the 
key can also be specified by a positive integer numeric 
literal containing ten or fewer digits. 

b. Random Files 

If the KEY phrase is specified, the value of the key 
refers to the record with that value in the RETAIN 
statement. For example, a KEY value of in the FREE 
statement frees the record defined with a KEY value of 
in the RETAIN statement. 

If the KEY phrase is not specified, the record freed is 
that record defined by the ACTUAL KEY of the file. 
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The value of a key can be specified by any identifier, 
which can be subscripted and/or qualified, provided that 
its USAGE is COMPUTATIONAL or INDEX. The value of a key 
can also be specified by a positive integer numeric 
literal containing ten or fewer digits. 



c. Indexed-Sequential Files 

If the KEY phrase is specified, its value re 
record with that value in the RETAIN stateme 
a key identified with a value of "ABC" 
statement frees the record identified as 
RETAIN statement. If LOW-VALUES is used as 
the key, it refers to the next record afte 
record, which is not necessarily the record 
LOW-VALUES in the RETAIN statement. This i 
current record is changed by an I/O s 
LOW-VALUES always refers to the record 
current record. 



fers to the 
nt. That is, 
in the FREE 
"ABC" in the 
the value of 
r the current 
identified by 
s because the 
tatement and 
following the 



The value specified in the KEY phrase must normally be an 
identifier that > specifies a field that agrees with the 
RECORD KEY defined for the file in size, class, usage, 
and number of decimal places. However, if the RECORD KEY 
of the file is USAGE COMPUTATIONAL or INDEX, a positive 
integer' numeric literal of ten or fewer digits can be 
used as the value in the KEY phrase. 

If the KEY phrase is not specified, the record freed is 
that record defined by the RECORD KEY of the file. If 
the RECORD KEY contains LOW-VALUES, it refers to the next 
record after the current record, which is not necessarily 
the record specified by LOW-VALUES in the RETAIN 
statement. This is because the current record is changed 
by an I/O statement and LOW-VALUES refers to the record 
following the current record. 

Examples 

Sequential File 

RETAIN HISTORY KEY FOR READ-WRITE UNTIL FREED, 
HISTORY KEY 1 FOR READ-WRITE UNTIL FREED, 
HISTORY KEY 2 FOR READ-WRITE. 

READ HISTORY, AT END STOP RUN. 

FREE HISTORY EVERY RECORD. 

Random File 

RETAIN PART KEY FOR ANY VERB. 
READ PART, INVALID KEY GO TO ERR. 
WRITE PARTREC. 
FREE PARK KEY 0. 

Indexed-Sequential File 

MOVE "B" TO RECORD-KEY. 
RETAIN LETTERS FOR READ. 
FREE LETTERS. 
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5.9.16 GENERATE 



Function 



The GENERATE statement causes the Report-Writer to execute all 
automatic report operations, and, if required, to produce one or more 
report groups. 

General Format 

rcMTDATc (data-name \ 
GENERATE \ report-name i 



Technical Notes 

1. If identifier is the name of a TYPE DETAIL report group, the 
GENERATE statement performs all the automatic report 
operations, and produces an output detail report group on the 
output file. This is called detailed reporting. 

2. If the identifier is the name of an RD entry, the GENERATE 
statement performs all the automatic report operations, but 
does not produce an output detail report group. This is 
called summary reporting. 

3. A GENERATE statement performs the following automatic 
operations: 

a. It steps and tests the LINE-COUNTER and/or PAGE-COUNTER 
to produce, if necessary, any PAGE FOOTING and PAGE 
HEADING report groups. 

b. It recognizes any specified control breaks to produce 
appropriate CONTROL FOOTING and CONTROL HEADING report 
groups, and resets appropriate summation counters. 

c. It accumulates into the summation counters all specified 
identifiers. 

d. It executes any routines defined by a USE statement. 

e. In detailed reporting, it produces the detailed report 
group. 

4. During the execution of the first GENERATE statement for a 
report, the following groups, if specified, are produced: 

a. Report Heading 

b. Page Heading 

c. All Control Headings, in the order major to minor 

d. The detail report group, in detailed reporting 
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5. Data is moved to the data item in the Report Group 
Description Entry according to the same rules for movement 
described for the MOVE statement. 

6. A GENERATE statement for a particular report may not be 
executed until an INITIATE statement has been executed for 
that report. In addition, if a TERMINATE statement has been 
executed for that report, a GENERATE statement may not be 
executed until an intervening INITIATE statement is executed 
for the report. 
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5.9.17 GO TO 



Function 



The GO TO statement causes control to be transferred from one part of 
the Procedure Division to another. 

General Format 

GO JO [[procedure-name-l] 

GO TO procedure-name-1 rprocedure-name-2~] ... procedure-name-n 
DEPENDING ON identifier 

Technical Notes 

1. Each procedure-name is the name of a paragraph or section in 
the Procedure Division of the program. 

2. Format 1 causes transfer of control to the specified 
procedure-name, or to some other procedure-name if the GO TO 
has been previously altered. 

In order to be alterable, format 1 must appear as the first 
sentence in a paragraph. 

If procedure-name-1 is not specified, the GO TO must be 
alterable and an associated ALTER statement must be executed 
prior to executing this GO TO. 

When this form of GO TO appears in an imperative sentence, it 
must appear as the last or only statement in the sentence. 

3. Format 2 causes transfer of control to procedure-name-1, 
procedure-name-2, . . . or procedure-name-n depending on 
whether the value of the identifier is 1, 2, ... or n, 
respectively. 

The identifier must refer to an elementary numeric item 
having no positions to the right of the decimal point. The 
item may not be USAGE COMPUTATIONAL-1. 

If the value of the identifier is other than the positive 
integers 1, 2, ... or n, the GO TO statement is by-passed. 
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5.9.18 GOBACK 

Function 

The GOBACK statement is used in a subprogram to return control to the 
calling program. 

General Format 

GOBACK. 



Technical Notes 

1. The GOBACK statement can only be used in subprograms. 

2. When control reaches a GOBACK statement, control is returned 
to the calling program at the statement immediately following 
the CALL statement. 

3. If a GOBACK statement is encountered in a subprogram that is 
operating as a main program, it is treated as a STOP RUN 
statement. 

4. Refer to the COBOL-74 Usage Material, Part 3 of this manual, 
for more information on subprograms. 
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5.9.19 IF 



Function 



The IF statement causes a conditional expression to be evaluated and 
subsequent operations to be determined as a result of this evaluation. 

General Format 

(statement-1 \ Tn <;f (statement-2 \\ 
I NEXT SENTENCE ? P^ (NEXT SENTENCE ? I 



Technical Notes 

1. Conditional expressions are discussed in Section 5.5 in this 
chapter. 

2. The subsequent action of the program is determined by whether 
the conditional expression is true or false. 

a. If the conditional expression is true and statement-1 and 
any following statements are given, statement-1 and any 
following statements are executed and, provided that they 
do not contain a GO TO or STOP RUN, control passes to the 
next sentence. If the conditional expression is true and 
NEXT SENTENCE is given, control passes to the next 
sentence. 

b. If the conditional expression is false and statement-3 
and any following statements are given, statement-3 and 
any following statements are executed and, provided that 
they do not contain a GO TO or STOP RUN, control passes 
to the next sentence. 

If the conditional expression is false and either ELSE 
NEXT SENTENCE is given or the entire ELSE clause is 
omitted, control passes to the next sentence. 

3. The length of compared data-items in the conditional 
expression of an IF statement is limited to 2047 characters. 

4. Statement-1, statements, statement-3, and statement-4 may 
include any statement or sequence of statements, including 
other IF statements. IF statements included within other IF 
statements are nested. Nested IF statements are paired IF 
and ELSE combinations and may continue up to 12 levels deep. 
Each ELSE encountered is paired with the nearest preceding IF 
not already paired with an ELSE. The pairing process begins 
with the innermost IF ... ELSE pair and proceeds outwards. 
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Example : (c=condition; s=statement) 



X 



IF c-1 IF c-2 s-2 l-LSH IF co s-3 I-LSli s4 FLSE s-5. 



^n 
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5.9.20 INITIATE 

Function 

The INITIATE statement is used to initialize all counters before a 
report is produced. 

General Format 

INITIATE report-name-1 [report-name-2] 

Technical Notes 

1. Each report-name must be defined by an RD entry in the Report 
Section of the Data Division. 

2. The INITIATE statement resets all data-name entries that 
contain SUM clauses associated with a report, 

3. The PAGE-COUNTER is set to 1 during the execution of an 
INITIATE statement. if a different starting value for the 
PAGE-COUNTER is desired, it may be reset following the 
INITIATE statement before the execution of the first GENERATE 
statement. 

4. The LINE-COUNTER is set to during execution of the INITIATE 
statement. 

5. The INITIATE statement does not open the file with which the 
report is associated. An OPEN statement must be executed 
prior to the execution of the INITIATE statement. 

6. A second INITIATE statement for a particular report-name may 
not be executed until a TERMINATE statement for that 
report-name is executed. 
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Function 

The INSPECT statement counts, replaces, or counts and replaces the 
number of occurrences of a given character or groups of characters in 
a data item. 



General Format 

INSPECT identifier-1 TALLYING 



INSPECT identifier-1 REPLACING 

^"ARACTERS BY {SH [{ff } INITIAL {\^T^ 

^({ifsfim h d^ir-niw} "«™ era]- 

INSPECT identifier-1 TALLYING 

^'"-^Hm ^»"r 3 }} Bms -™ L {i?s«r.n])" 

REPLACING 



IrrflnTMrl ) /identifier^) ov (identifier-6) R BEFORE ) THTTTn , /identi fier-7\l) 
IrrSr^ lliteral-3 f SI {literal-4 } KaTTeTJ INITIAL {literal-5 \\\ 



"ARACTERS BY {l^ft'- 6 } [fff} INITIAL {tfS^ 7 }] 
(ALL 

{ leadi 

Technical Notes 

The following rules apply to Formats 1, 2 and 3: 

1. Each literal must be nonnumeric and may be any figurative 
constant except ALL. 

2. The usage of all identifiers must be DISPLAY, implicitly or 
explicitly. Identifier-1 must reference either a group item 
or any category of elementary item. Identif ier-3. . . 
identifier-n must reference either an elementary, alphabetic, 
alphanumeric or numeric item. 
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2. The usage of all identifiers must be DISPLAY, implicitly or 
explicitly. Identif ier-1 must reference either a group 
item or any category of elementary item. Identif ier-3. . . 
identifier-n must reference either an elementary, 
alphabetic, alphanumeric or numeric item. 

3. If there is more than one TALLYING and/or REPLACING to be 
made in the same INSPECT statement, it is not the same as 
two or more separate INSPECT statements, each with only one 
of the comparisons. In this case, the following rules 
apply: 

a. The identifiers and literals for TALLYING and/or 
REPLACING are accepted in the order they are specified 
in the INSPECT statement from left to right. The first 
literal-1, literal-3 is compared to an equal number of 
contiguous characters, starting with the leftmost 
character position in identif ier-1. Literal-1, 
literal-3, and that portion of the contents of 
identif ier-1 match if they are equal, character for 
character . 

b. If no match occurs in the comparison of the first 
literal-1, literal-3, the comparison is repeated with 
each successive literal-1, literal-3, until a match is 
found. When a successive literal-1, literal-3 do not 
exist, the character position in identifier-1 
immediately to the right of the leftmost character 
position is considered the leftmost character position, 
and the comparison begins again with the first 
literal-1, literal-3. 

c. When a match occurs, TALLYING and/or REPLACING takes 
place as described in notes 6 and 11 below. The 
character position in identifier-1 immediately to the 
right of the of the rightmost character position that 
matched is now the leftmost character position of 
identifier-1 and the comparison begins again with the 
first literal-1, literal-3. 

d. The comparison continues until the rightmost character 
position of identifier-1 has matched or has already 
been considered as the leftmost character position. 
When this occurs, the INSPECT statement is terminated. 

e. If CHARACTERS is specified, an implied one character 
participates in the cycle as described in notes 3a and 
3b above, except no comparison to the contents of 
identifier-1 takes place. This one character is 
considered to match the leftmost character of the 
contents of identifier-1 occurring in the current 
comparison. 

The following rules apply to Format 1: 

4. Identifier-2 must reference an elementary numeric data 
name. It should be defined as a 1-word COMP field with a 
PICTURE of 9(10) to avoid any possible truncation warning 
messages. If either literal-1 or literal-2 is a figurative 
constant, the figurative constant refers to an implicit 
one-character data item. 
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5. The contents of the data item referenced by identif ier-2 is 
not initialized by the execution of the INSPECT statement. 

6. The rules for tallying are as follows: 

a. If the ALL phrase is specified, the contents of the data 
item referenced by identifier-2 is incremented by one (1) 
for each occurrence of literal-1 matched within the 
contents of the data item referenced by identif ier-1. 

b. If the LEADING phrase is specified, the contents of the 
data item referenced by identifier-2 is incremented by 
one (1) for each contiguous occurrence of literal-1 
matched within the contents of the data item referenced 
by identif ier-1, provided that the leftmost such 
occurrence is at the point where comparison began in the 
first comparison cycle in which literal-1 was eligible to 
participate. 

c. If the CHARACTERS phrase is specified, the contents of 
the data item referenced by identifier-2 is incremented 
by one (1) for each character matched, within the 
contents of the data item referenced by identif ier-1 . 

The following rules apply to Format 2: 

7. The size of the data referenced by literal-4 or identifier-6 
must be equal to the size of the data referenced by literal-3 
or identif ier-5. When a figurative constant is used as 
literal-4, the size of the figurative constant is equal to 
the size of literal-3 or the size of the data item referenced 
by identif ier-5. 

8. When the CHARACTERS phrase is used, literal-4, literal-5, or 
the size of the data item referenced by identifier-6 or 
identifier-7 must be one character in length. 

9. When a figurative constant is used as literal-3, the data 
referenced by literal-4 or identifier-6 must be one character 
in length. 

10. The required words ALL, LEADING and FIRST are adjectives that 
apply to each succeeding BY phrase until the next adjective 
appears. 

11. The following rules for replacement are as follows: 

a. When the CHARACTERS phrase is specified, each character 
matched in the contents of the data item referenced by 
identifier-1 is replaced by literal-4. 

b. When the adjective ALL is specified, each occurrence of 
literal-3 matched in the contents of the data item 
referenced by identifier-1 is replaced by literal-4. 
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c. When the adjective LEADING is specified, ^ each 
contiguous occurrence of literal-3 matched in the 
contents of the data item referenced by identifier-1 is 
replaced by literal-4, provided that the leftmost 
occurrence is at the point where comparison began in 
the first comparison cycle in which literal-3 was 
eligible to participate. 

d. When the adjective FIRST is specified, the leftmost 
occurrence of literal-3 matched within the contents of 
the data item referenced by identifier-1 is replaced by 
literal-4. 

The following rules apply to Format 3: 

12. Identifier-2 must reference an elementary numeric data 
item. It should be defined as a 1-word COMP field with a 
PICTURE of 9(10) to avoid any possible truncation warning 
messages. 

13. If either literal-1 or literal-2 is a figurative constant, 
the figurative constant refers to an implicit one-character 
data item. 

14. The size of the data referenced by literal-4 or 
identifier-6 must be equal to the size of the data 
referenced by literal-3 or identif ier-5. When a figurative 
constant is used as literal-4, the size of the figurative 
constant is equal to the size of literal-3 or the size of 
the data item referenced by identif ier-5. 

15. When the CHARACTERS phrase is used, literal-4, literal-5, 
or the size of the data item referenced by identifier-6 or 
identifier-7 must be one character in length. 

16. When a figurative constant is used as literal-3, the data 
referenced by literal-4 or identifier-6 must be one 
character in length. 

17. A Format 3 INSPECT statement is interpreted and executed as 
though two successive INSPECT statements specifying the 
same identifier-1 had been written with one statement being 
a Format 1 statement with TALLYING phrases identical to 
those specified in the Format 3 statement, and the other 
statement being a Format 2 statement with REPLACING phrases 
identical to those specified in the Format 3 statement. 
The general rules given for matching and counting apply to 
the Format 1 statement and the general rules given for 
matching and replacing apply to the Format 2 statement. 
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Examples 

The field TXT-FLD contains "PSYCHOANALYSIS". 

INSPECT TXT-FLD TALLYING COUNTER-1 FOR CHARACTERS BEFORE 
INITIAL "A". 

COUNTER-1 contains 6 

INSPECT TXT-FLD REPLACING "A" BY "X" BEFORE INITIAL "N" . 

TXT-FLD ends with "PSYCHOXNALYSIS" 

INSPECT TXT-FLD TALLYING COUNTER-1 FOR CHARACTERS AFTER 
INITIAL "S", REPLACING ALL "S" BY "Z". 

TXT-FLD ends with "PZYCHOANALYZIZ" 
COUNTER-1 contains 12 
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5. MERGE statements may appear anywhere in the Procedure 
Division except in the DECLARATIVES portion or in an INPUT or 
OUTPUT PROCEDURE associated with a SORT, or an OUTPUT 
PROCEDURE associated with another MERGE. 

6. When the ASCENDING clause is used, the input files must be in 
sequence from the lowest values to the highest values; when 
the DESCENDING clause is used, the input files must be in 
sequence from the highest values to the lowest values. 

7. The OUTPUT PROCEDURE, if present, must consist of one or more 
sections or paragraphs that appear contiguously in the source 
program and do not form a part of any INPUT PROCEDURE. The 
OUTPUT PROCEDURE must contain at least one RETURN statement 
in order to make MERGEd records available for processing. 

8. ALTER, GO, and PERFORM statements in the OUTPUT PROCEDURE may 
not refer to procedure-names outside the OUTPUT PROCEDURE in 
which they appear. 

9. If you specify an OUTPUT PROCEDURE, it is performed by the 
MERGE statement. You must observe all rules relating to the 
range of a PERFORM. 

10. If WITH SEQUENCE CHECK is present then the input files are 
checked to make sure that the records are in sequence with 
respect to the merge keys (that is, that the files were 
presorted.) A warning message is given for each record out 
of order. 

11. If you specify the GIVING option, all the merged records in 
file-name-1 are automatically transferred to file-name-5. 
File-name-5 must not be open when the MERGE statement is 
executed. Any USE PROCEDURES associated with file-name-5 
will be executed as appropriate. The GIVING option is 
equivalent to the following OUTPUT PROCEDURE: 

L4. OPEN OUTPUT file-name-5. 

L5. RETURN sort-file INTO record-name-5; AT END GO TO L6 . 

WRITE record-name-5. 

GO TO L5. 

L6. CLOSE file-name-5. 

Refer to the SORT/MERGE User's Guide for more information on 
MERGE . 
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5.9.23 MOVE 

Function 

The MOVE statement transfers data in accordance with the rules of 
editing, from one data area to one or more data areas. 

General Format 



um/r Jidenti fier-l( Tn . , , . r . 
M0VE literal } T0 ^entifier-2 



identifier-3 



M nwr ) CORRESPONDING I . , ..„. . Tn . . ..,. , 
MOVE \7qrr ' identi fier-1 TO identi fier-2 



Technical Notes 

1. CORR may be interchanged with CORRESPONDING. 

2. Identifier-1 (or literal-1) represents the data to be moved 
and is called the sending item. Identif ier-2, identifier-3, 
... represent the receiving data items. 

3. In format 1, the data contained in identifier-1 or literal-1 
is moved first to identif ier-2 , then to identifier-3, etc. 

In format 2, data items within the group item associated with 
identifier-1 are moved to corresponding data items within the 
group item associated with identif ier-2. The results are the 
same as if you had referred to each pair of corresponding 
identifiers in separate MOVE statements. The criteria used 
to determine whether two items are corresponding are 
described in Section 5.7, The CORRESPONDING Option. 

4. The following rules apply to both group and elementary items; 
a group item is treated as a single field. 

a. A numeric-edited, alphanumeric-edited, or alphabetic data 
item must not be moved to a numeric or numeric-edited 
data item. 

b. A numeric or numeric-edited item must not be moved to an 
alphabetic data item. 

c. A numeric item whose implicit decimal point is not 
immediately to the right of the least significant digit 
must not be moved to an alphanumeric or 
alphanumeric-edited item. 

d. All other moves are legal. 
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5. The following rules apply to all legal moves. 

a. When an alphanumeric, alphanumeric edited, or alphabetic 
item is the receiving item: 

1. If the size of the sending field is greater than the 
size of the receiving field, the least significant 
(rightmost) characters are truncated if the receiving 
field is not described by a JUSTIFIED RIGHT clause; 
the most significant (leftmost) characters are 
truncated if the receiving field is described as 
JUSTIFIED RIGHT. 

2. If the size of the sending field is less than the 
size of the receiving field, spaces are placed in the 
remaining rightmost characters of the receiving field 
if the receiving field is not described by a 
JUSTIFIED RIGHT clause; spaces are placed in the 
remaining leftmost characters of the receiving field 
if the receiving field is described by a JUSTIFIED 
RIGHT clause. 

3. If the sizes of the sending and receiving field are 
equal, no truncation or filling with spaces takes 
place. 

b. When a numeric or numeric-edited item is the receiving 
item, the sending and receiving fields are aligned by 
decimal point. If the sending field is not numeric, the 
decimal point is assumed to be on the right. Any 
necessary zero filling takes place before editing. If 
the receiving item has no operational sign, the absolute 
value of the sending item is stored. If the receiving 
item has fewer digits to the left or right of the decimal 
point than does the sending item, the excess digits are 
truncated. If the sending item contains any nonnumeric 
characters, the result is unpredictable. 

c. Any necessary conversion of data from one form of 
internal representation to another is performed 
automatically during the move, along with any editing 
specified by the PICTURE of the receiving item. 

6. Any move that is not an elementary move (that is, neither the 
sending or receiving items are elementary items) is called a 
group move. A group move is treated as if it were an 
alphanumeric-to-alphanumeric elementary move except that 
there is no conversion of data from one form of internal 
representation to another. In other words, the individual 
data descriptions of the items within the sending group item 
and the receiving group item are completely ignored and both 
items are treated as though they were described by a PICTURE 
IS X(n) clause, where n is the number of character positions 
in the particular item. 
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5.9.24 MULTIPLY 

Function 

The MULTIPLY statement causes numeric data items to be multiplied and 
sets the values of data items equal to the results. 

General Format 

MULTIPLY l^te^af-li — identifier " 2 ROUNDED 

identifier-3 ROUNDED ... ON SIZE ERROR imperative-statement 

(identifier-l) (identi fier-2) identifier-3 TrOU^Ed! 
|literal-l j — Yhtenal-2 | I I 

identifier-4 ROUNDED ... ON SIZE ERROR imperative-statement 



Technical Notes 

1. Each MULTIPLY statement must contain at least two operands (a 
multiplicand and a multiplier). Each identifier must refer 
to an elementary numeric item, except that identifier-3 in 
format 2 may refer to either a numeric or a numeric-edited 
item. Each literal must be a numeric literal; the 
figurative constant ZERO is permitted. 

2. Format 1 causes the value of identifier-1 or literal-1 to be 
multiplied by the value of identif ier-2. The resultant 
product replaces the value of identif ier-2. The same process 
happens again, with identifier-3 replacing identif ier-2, then 
identifier-4 replacing identifier-3, until all multipliers 
have been used. 

3. Format 2 causes the value of identifier-1 or literal-1 to be 
multiplied by the value of identifier-2 or literal-2. The 
resultant product is stored in identifier-3, identifier-4, 
and so on. 

4. The ROUNDED and SIZE ERROR options are described in Section 
5.6, Common Options Associated with Arithmetic Verbs. 

5,. Despite the possiblity of sequential multiplication taking 
place, there can never be more than two operands in use at 
one time. The total number of digits in both operands must 
not be more than 18 decimal digits for the standard compiler 
and not more than 36 digits for the BIS-compiler . In either 
case, a maximum of 18 digits can be stored in the receiving 
field. (See Section 1.1 for a definition of the 
BIS-compiler. ) 
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5.9.25 OPEN 



Function 



The OPEN statement initiates the processing of files and, where 
necessary, performs the checking and writing of labels. It also 
specifies your covenants for opening a file for simultaneous update. 



General Format 



0PEN< 



< INPUT \ 
\ OUTPUT f 



fil e-name-1 



[RE 
1_ WI 



REVERSED 



TH NO REWIND 



file-name-2 



REVERSED 

WITH NO REWIND 



1-0 
INPUT-OUTPUT 



f i 1e~name-3 



( READ \ 

\ REWRITE / 



FOR < WRITE 



I DELETE \ 
V ANY VERB ) 



AND 



READ 
REWRITE 
WRITE 
DELETE 
ANY VERB; 



I NONE 
READ 
Srite TE 
DELETE 
ANY VERB J 



fi le-name-4 



FOR 



( READ \ 

\ REWRITE / 

{ WRITE > 

/ DELETE 1 

V ANY verb; 



( READ \ 

1 REWRITE / 
[ WRITE > 
/ DELETE \ 
V ANY VERB 1 



! N0NE 
READ 
WRITE TE 
DELETE 
ANY VERE 



C EXTEND Dfilename-5 C filename-6 1 ... 

{_ UNAVAILABLE statement- 1 C statement-2 3 ... 1 . 



i NONE 
READ 
REWRITE 
WRITE 
DELETE 
ANY VERBJ 



I NONE 
READ 
RECITE 
WRITE 
DELETE 
ANY VERE 
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Technical Notes 

1. The OPEN statement must be executed for a file prior to the 
execution of any I/O verbs, such as READ, WRITE, DELETE, 
REWRITE, SEEK, or CLOSE. 

2. A second OPEN statement for a file cannot be executed prior 
to the execution of a CLOSE statement for that file. 

3. An OPEN statement does not obtain or release the first record 
of a file. A READ statement must be executed to obtain the 
first record (or a WRITE statement must be executed to 
release the first record) . 

4. The maximum number of files that can be opened at a time is 
16. When indexed-sequential files are being used, each 
indexed-sequential file is treated as two files: the index 
file and the data file. If the program is segmented, one 
less file can be open; similarly, if the RERUN option is 
being used, one less file can be open. The key word INPUT, 
OUTPUT, INPUT-OUTPUT, or 1-0 applies to each subsequent 
filename until another such key word is encountered or until 
the end of the OPEN statement is reached. 

5. The NO REWIND option has meaning only for magtape files and 
is ignored for all other devices. If the NO REWIND clause is 
not specified for a tape file, the tape is rewound to the 
beginning of the tape. 

6. If a file has been described with LABEL RECORDS ARE STANDARD, 
standard label checking or label writing is performed. If a 
file has been described as LABEL RECORDS ARE OMITTED, no 
label checking or writing is performed. 

7. If an INPUT file is described as OPTIONAL (in the 
FILE-CONTROL paragraph) , the object-time system will type the 
message 

IS file-name PRESENT? 

and wait for the operator to type YES or NO. If he types NO, 
the first READ statement for this file causes the 
imperative-statement at the AT END or INVALID KEY clause to 
be executed. 

8. The 1-0 or INPUT-OUTPUT options permit the opening of a file 
on a random-access device for both input and output 
processing. When the 1-0 option is specified, the execution 
of the OPEN statement causes the standard beginning label 
procedures to be executed. If the file does not exist when 
it is opened for INPUT-OUTPUT, an empty file is created. 

9. A file is opened for simultaneous update if the ALLOWING 
OTHERS clause is present in the OPEN statement. It must be 
opened in 1-0 mode and cannot have a recording mode of V 
(variable-length EBCDIC) . 
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Technical Notes 



1. The OPEN statement must be executed for a file prior to the 
execution of any I/O verbs, such as READ, WRITE, DELETE, 
REWRITE, or CLOSE. 

2. The compiler calculates a blocking factor for any unblocked 
file that is opened for I/O. Therefore, files opened for I/O 
should have explicit blocking factors. 

When an OPEN 1-0 statement is executed, the file position 
indicator is set to the first record in the file. 

When an OPEN 1-0 statement specifies a nonexisting file, the 
file is created. However, ISAM files must exist for an OPEN 
1-0 statement. 

3. When your program executes an OPEN verb, the record area for 
that file is cleared. 

4. A second OPEN statement for a file cannot be executed prior 
to the execution of a CLOSE statement for that file. 

5. An OPEN statement does not obtain or release the first record 
of a file. A READ statement must be executed to obtain the 
first record (or a WRITE statement must be executed to 
release the first record) . 

6. The maximum number of files that can be opened at a time is 
16. When indexed-sequential files are being used, each 
indexed-sequential file is treated as two files: the index 
file and the data file. If the program is segmented, one 
less file can be open; similarly, if the RERUN option is 
being used, one less file can be open. The key word INPUT, 
OUTPUT, INPUT-OUTPUT, or 1-0 applies to each subsequent 
filename until another such key word is encountered or until 
the end of the OPEN statement is reached. 

7. When you OPEN an indexed sequential file, the OPEN statement 
initializes the keys to LOW-VALUES. Thus, you cannot load a 
key with a value prior to opening the ISAM file and expect 
the key to have the value you specify. 

8. The NO REWIND option has meaning only for magtape files and 
is ignored for all other devices. If the NO REWIND clause is 
not specified for a tape file, the tape is rewound to the 
beginning of the tape. 

9. If a file has been described with LABEL RECORDS ARE STANDARD, 
standard label checking or label writing is performed. If a 
file has been described as LABEL RECORDS ARE OMITTED, no 
label checking or writing is performed. 

10. If an INPUT file is described as OPTIONAL (in the 
FILE-CONTROL paragraph) , the object-time system types the 
message 

IS file-name PRESENT? 

and wait for the operator to type YES or NO. If he types NO, 

the first READ statement for this file causes the 

imperative-statement at the AT END or INVALID KEY clause to 
be executed. 
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11. The 1-0 or INPUT-OUTPUT options permit the opening of a file 
on a random-access device for both input and output 
processing. When the 1-0 option is specified, the execution 
of the OPEN statement causes the standard beginning label 
procedures to be executed. The file must exist when it is 
opened for INPUT-OUTPUT. 

12. A file is opened for simultaneous update if the ALLOWING 
OTHERS clause is present in the OPEN statement. It must be 
opened in 1-0 mode and cannot have a recording mode of V 

(variable-length EBCDIC) . 

13. RMS indexed files cannot be opened for simultaneous updates. 
Therefore, the ALLOWING OTHERS clause cannot be used. 

14. If you open a file for simultaneous update, all subsequent 
users of the file must also open it for simultaneous update 
or for input only. If the file is currently open for 
simultaneous update, any subsequent users attempting to open 
the file for output or 1-0 are denied access to the file. If 
you open the file for output or 1-0 only and subsequent users 
attempt to open that file for simultaneous update, the 
simultaneous update users are denied access to the file until 
you close it. 

15. After the keyword FOR, you must give one or more verbs that 
you intend to execute while you have your file open. You can 
only execute those verbs that you have specified. Following 
the keywords ALLOWING OTHERS, you must give one or more verbs 
that you are allowing other users to execute when they open 
the file. You can also specify that others not be allowed to 
execute any verbs when they open the file. Specification of 
ANY VERB means that all verbs legal for the file are 
permissible. If the ALLOWING OTHERS clause is not present, 
the file is not opened for simultaneous update. 

16. Once you have opened at least one file for simultaneous 
update, you cannot open any other files for simultaneous 
update until all files you previously opened for simultaneous 
update are closed. Thus, all files that must be open 
concurrently for simultaneous update must be opened in the 
same OPEN statement. However, files that are not to be 
opened for simultaneous update can be opened at any time. 

17. Files can be opened for INPUT, OUPUT, and just INPUT-OUTPUT 
(that is, not for simultaneous update) in the same OPEN 
statement as files opened for simultaneous update. 
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21. The REVERSED option may be used 
drives. If you specify this opt 
be opened and the tape positione 
READ statement will cause the 
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available to you is the first re 
might not be the last record, 
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Examples 



OPEN INPUT INFIL. 

OPEN 1-0 TRANSACTION FOR READ AND WRITE, 
ALLOWING OTHERS READ AND WRITE. 

OPEN OUTPUT LOG, LIST, 

INPUT-OUTPUT MASTER FOR READ AND REWRITE, 
OTHERS ANY 
DET FOR READ, 

OTHERS READ AND WRITE, 
ACCOUNT FOR ANY 
OTHERS NONE, 
INPUT DAILY WITH NO REWIND. 



5-63 



January 19 80 



THE PROCEDURE DIVISION 



PERFORM 



5.9.26 PERFORM 



Function 



The PERFORM statement is used to depart from the normal sequence of 
execution in order to execute one or more procedures and then return 
control to the normal sequence. 



General Format 



PERFORM procedure-name-1 { thru^ } P rocedure - name - 2 

PERFORM procedure-name-lR ™jjfj UGH } procedure-name-2 1 {^teaer-l^ 1 } TIMES 

PERFORM procedure-name- if < ^7^ } procedure-name-2 UNTIL condition- 1 

PiMMProcedure-name-lfJII^ } procedure-name-2 ] 



uaDVTNr jidentifier-2! „nM f 1 d * nti fier " 9 3 
VARYING index-name-1 [ ™M mdex-name-2 

iliteral-1 



BY 



AFTER 



BY 



AFTER 



identi fier-4 
1 iteral-3 



identi fi er-5 
index-name-3 



identi fier-7 
literal -4 



identi fier-8 
index-name-5 



identi fier-10 
1 i teral -6 



JTIL condition-1 



identi fier-6 
FROM { index-name-4 
1 iteral-3 



UNTIL condition-2 



i denti fier-9 
FROM index-name-6 
1 iteral -5 



UNTIL condition-3 
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Technical Notes 



1. Each procedure-name is the name of a section or paragraph in 
the Procedure Division. Each identifier must refer to a 
numeric elementary item described in the Data Division. Each 
literal must be either a numeric literal or the figurative 
constant ZERO. 

2. When the PERFORM statement is executed, control is 
transferred to the first statement of procedure-name-1. An 
automatic return to the statement following the PERFORM 
statement is established as follows. The procedures executed 
constitute the range of the PERFORM. 

a. If procedure-name-1 is a paragraph-name and 
procedure-name-2 is not specified, the return is after 
the last statement of procedure-name-1. 

b. If procedure-name-1 is a section-name and 
procedure-name-2 is not specified, the return is after 
the last statement in the last paragraph in 
procedure-name-1 . 

c. If procedure-name-2 is a paragraph-name, the return is 
after the last statement in that paragraph. 

d. If procedure-name-2 is a section-name, the return is 
after the last statement in the last paragraph of that 
section. 



3. There is no relationship between procedure-name-1 and 
procedure-name-2, except that the sequence of operations 
beginning at procedure-name-1 must eventually end with the 
execution of procedure-name-2 in order to effect the return 
at the end of procedure-name-2. Any number of GO TO and/or 
PERFORM statements may occur between procedure-name-1 and 
procedure-name-2. 

4. If control passes to these procedures by means other than a 
PERFORM statement, control passes through the return point to 
the following statement as though no return mechanism were 
present. 

5. No PERFORM statement may terminate until all PERFORM 
statements that it has executed have terminated. A PERFORM 
statement may be executed which terminates at the same 
procedure-name as another active PERFORM. 

6. Format 1 causes the PERFORM range to be executed once, 
followed by a return to the statement immediately following 
the PERFORM. 
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7. Format 2 causes the PERFORM range to be executed the number 
of times specified by identifier-1 or integer-1. The value 
of identifier-1 or integer-1 must not be negative; it may be 
zero. Once the PERFORM statement has been initialized, any 
modification to the contents of identifier-1 has no effect on 
the number of times the range is executed. 

8. Format 3 causes the PERFORM range to be executed until the 
condition specified in the UNTIL clause is true. If chis 
condition is true at the time the PERFORM statement is 
initialized, the range is not executed. Conditions are 
explained in Section 5.5, Conditional Expressions. 

9. Format 4 is used to augment the value of one or more 
identifiers during the execution of a PERFORM statement. In 
format 4, when only one identifier is varied, identifier-1 is 
set equal to identifier-2 or literal-2 when the PERFORM 
statement is initialized. If the condition specified is 
determined to be false at this point, the PERFORM range is 
executed once. Then the value of identifier-1 is augmented 
by identifier-3 or literal-3 and the rest of the condition is 
done again. This cycle continues until condition-1 is true; 
at this point, control passes to the statement following the 
PERFORM statement. If condition-1 is true at the beginning 
of the execution of the PERFORM, control immediately passes 
to the statement following the PERFORM. 



The flow chart in Figure 5-3 illustrates the logic 
PERFORM cycle when two identifiers are varied. 



of the 
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Set identifier-2 and identifier-5 
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Figure 5-3 PERFORM Cycle Logic - Two Variables 
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The flow chart in Figure 5-4 illustrates the logic of the PERFORM 
cycle when three identifiers are varied. 
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BY value 




Augment 
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Figure 5-4 PERFORM Cycle Logic - Three Variables 



10. When a procedure-name in a segment with a priority number 
greater than 49 is referred to by a PERFORM statement 
contained in a segment with a different priority number, the 
segment referred to is made available in its initial state 
(that is, with all alterable GO TOs set to their initial 
setting) for each execution of the PERFORM statement. 

11. A PERFORM statement in a section not in the DECLARATIVES may 
have as its range procedures wholly contained within the 
DECLARATIVES; however, a PERFORM statement in a section 
within the DECLARATIVES may not have any non-DECLARATIVE 
procedures within its range. 

12. A PERFORM statement within an INPUT or OUTPUT PROCEDURE 
associated with a SORT or MERGE verb may not have within its 
range any procedures outside of that INPUT or OUTPUT 
PROCEDURE. 
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5.9.27 READ 



Function 



The READ statement makes available a logical record from an input file 
and allows performance of a specified imperative statement when 
end-of-file or invalid key is detected. 

General Format 

READ file-name | NEXT j RECORD f lNTO identifier! 

AT END imperative-statement 
READ file-name RECORD TlNTO identifier! f lNVALID KEY imperative-statement J 

READ file-name RECORD INTO identifier J 

[[KEY IS data-namej 

[~ INVALID KEY imperative-statement j 

Technical Notes 

1. An OPEN INPUT or OPEN 1-0 statement must be executed for the 
file prior to execution of the first READ statement for that 
file. 

2. The AT END clause is valid only for those files whose 
organization is SEQUENTIAL (explicitly or implicitly) . For 
those files, the AT END phrase must be specified if no 
applicable USE procedure is specified for file-name. 

The INVALID KEY clause is valid only for those files whose 
access mode is RANDOM or DYNAMIC. 

For files whose organization is RELATIVE or INDEXED, the 
INVALID KEY phrase or the AT END phrase must be specified if 
no applicable USE procedure is specified for file-name. 

If an end-of-file condition is encountered during the 
execution of a READ statement for a sequential file, any 
statements specified in the AT END clause are executed, and 
no logical record is made available. 

The logical end-of-file depends upon the type of device on 

which the file resides (users of TOPS-10 should see the 

Monitor Calls Manual, and users of TOPS-20 should see the 
Monitor Calls Reference Manual) . 

After execution of the imperative-statement (s) in the AT END 
clause, no further READ statements can be executed for that 
file without first executing a CLOSE statement followed by an 
OPEN statement for the file. 
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5.9.26 READ 

Function 

The READ statement makes available a logical record from an input file 
and allows performance of a specified imperative statement when 
end-of-file or invalid key is detected. 

General Format 

READ file-name |~NEXT | RECORD F lNTO identifier"! 

AT END imperative-statement 
READ file-name RECORD INTO identifier] l INVALID KEY imperati ve-statementj 

READ file-name RECORD INTO identifier J 

[j<EY IS data-namej 

[ INVALID KEY imperative-statement 

Technical Notes 

1. An OPEN INPUT or OPEN 1-0 statement must be executed for the 
file prior to execution of the first READ statement for that 
file. 

2. The AT END clause is valid only for those files whose 
organization is SEQUENTIAL (explicitly or implicitly). For 
those files, the AT END phrase must be specified if no 
applicable USE procedure is specified for file-name. 

The READ statement can be executed after the AT END condition 
occurs. However, the AT END path is taken again and FILE 
STATUS of 16 is set. 

The INVALID KEY clause is valid only for those files whose 
access mode is RANDOM or DYNAMIC. 

For files whose organization is RELATIVE or INDEXED, the 
INVALID KEY phrase or the AT END phrase must be specified if 
no applicable USE procedure is specified for file-name. 

If an end-of-file condition is encountered during the 
execution of a READ statement for a sequential file, any 
statements specified in the AT END clause are executed, and 
no logical record is made available. 

The logical end-of-file depends upon the type of device on 

which the file resides (users of TOPS-10 should see the 

Monitor Calls Manual, and users of TOPS-20 should see the 
Monitor Calls Reference Manual) . 
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After execution of the imperative-statement (s) in the AT END 
clause, no further READ statements can be executed for that 
file without first executing a CLOSE statement followed by an 
OPEN statement for the file. 

When a READ statement is executed for a file whose 
organization is RELATIVE, the object-time system makes 
available the record whose relative record number is equal to 
the contents of the data item named in the RELATIVE KEY 
phrase. If no such record exists, the INVALID KEY statements 
are executed and no record is made available. For relative 
files whose access mode is DYNAMIC, the NEXT phrase must be 
specified if you wish to read the file sequentially. If you 
specify the NEXT phrase the record made available is the next 
logical record after the one most recently read, unless there 
has not been a READ statement since the last OPEN or START 
statement. If this is the case, the record made available is 
the first record, in the case of OPEN, or the record 
specified in the START statement, depending upon whether the 
EQUAL, GREATER THAN, or NOT LESS THAN option is used. 

When a READ statement is executed for a file whose 
organization is INDEXED, a search of the file is made to find 
the record that has a key equal to the contents of the RECORD 
KEY associated with the file. If that record is found, it is 
moved to the record area for the file; if it is not found, 
the statements associated with the INVALID KEY clause are 
executed, and no record is made available. 

When a READ NEXT statement is executed for a file whose 
organization is INDEXED, the next record available on the 
indicated key field logical path is made available. The 
logical key path is used regardless of intervening WRITES, 
REWRITES, DELETES, or any previous I/O operation which caused 
the INVALID KEY path to be taken. If a START statement was 
the last reference to the file, the record made available is 
the one specified in the START statement, or the first of the 
specified range. That is, if your program contains the 
following sentence: 

START MYFILE KEY IS GREATER THAN MIN-KEY INVALID KEY GO 
TO DISPLAY-ERROR 

the record made available to your program is the first 
logical record with a key value greater than MIN-KEY. If no 
such record exists (that is, you have reached end-of-file) , 
the INVALID KEY statements are executed, and no record is 
made available. If the file has been opened but no READ, 
WRITE, REWRITE, DELETE or START statement has been executed, 
the first record of the file is made available. 

3. The NEXT clause must be specified for files in dynamic access 
mode, when records are to be retrieved sequentially. The 
NEXT clause causes the next logical record to be retrieved 
from the file. 

A READ NEXT statement, following a WRITE statement execution 
with a low key, causes access of the low numbered record. 



5-70 October 1985 



THE PROCEDURE DIVISION 



READ (Cont.) 



4. If a file described by an OPTIONAL clause is not present, the 
imperative-statement (s) in the AT END or INVALID KEY clause 
is executed on the first READ for that file. Any specified 
USE procedures are not performed. 

5. If logical end-of-reel is recognized during execution of a 
READ statement, the following operations are carried out. 

a. The reel is rewound. 

b. If the file is assigned to more than one device, the 
devices are advanced. The previous reel is rewound and 
the next reel is initialized. 

c. The standard beginning label procedure is executed. 

d. The first data record on the new reel is made available. 

6. If a file consists of more than one type of logical record, 
these records automatically share the same storage area. 
This is equivalent to an implied REDEFINE for the record 
area. Only information in the current record is accessible. 

7. If the INTO identifier option is specified, the READ 
statement is then equivalent to a READ without the INTO 
option, followed by a MOVE of the record area associated with 
the filename to identifier. 

8. The INTO clause can be specified in the READ statement when: 

a. all records associated with the file and data-item 
specified in the INTO clause are group items, or 
elementary alphanumeric items, or 

b. only one record description is subordinate to the file 
description entry. 

9. The KEY IS data-name clause can be specified to read ISAM or 
RMS records. With both record formats, the data-name must 
previously be supplied a value before the read. For ISAM the 
data-name refers to the RECORD KEY value. For RMS, the 
data-name refers to either the primary key value (RECORD KEY 
IS) or an alternate key value (ALTERNATE KEY IS) . Refer to 
Appendix I for additional information on reading RMS indexed 
files. 

Example: 

SELECT MASTER-FILE ASSIGN TO DSK 
ORGANIZATION IS INDEXED 
ACCESS IS DYNAMIC 
RECORD KEY IS MASTER-NUMBER. 
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MOVE 99 TO MASTER-NUMBER. 

READ MASTER-FILE KEY IS MASTER-NUMBER 

INVALID KEY GO TO KEY-ERROR-ROUTINE. 
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5.9.27 RELEASE 

Function 

The RELEASE statement transfers records to the initial phase of the 
sort operation. 

General Format 

RELEASE record-name I FROM identifier 



TfROM identifier I 



MR-S-1 339-81 

Technical Notes 

1. A RELEASE statement can be used only in an input procedure 
associated with a SORT or MERGE statement for a file whose SD 
description contains record-name. 

2. If the FROM option is used, the contents of identifier are 
moved to record-name, then the contents of record-name are 
released to the sort subroutines. 

3. After the RELEASE statement is executed, the contents of 
record-name can no longer be available. 
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5.9.28 RETAIN 

Function 

The RETAIN statement specifies your intent to access one or more 
records in an indexed or relative file that is open for simultaneous 
update. 



General Format 



RETAIN file-name-1 



NEXT RECORD 



RECORD 



Ti/cv /identifier- 111 
[^ Uiteral-1 f] 



FOR 



READ 

REWRITE 

READ-REWRITE 

DELETE 

WRITE 

READ-WRITE 

ANY VERB 



,file-name-2 



READ 



AND 



READ 

REWRITE 

READ-REWRITE 

DELETE 

WRITE 

READ-WRITE 

ANY VERB 



NEXT RECORD 



RECORD 



[KEviir^njj 



FOR 



REWRITE 

READ-REWRITE 

DELETE 

WRITE 

READ-WRITE 

ANY VERB 



READ 
REWRITE 
READ-REWRITE 
AND < DELETE 



WRITE 

READ-WRITE 
ANY VERB 



[ until freed ] 



[ until freed ] 



UNAVAILABLE statement-1 [.statements] 
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Technical Notes 

1. Filename-1, f ilename-2. . . must be the names of files 
previously opened for simultaneous update. 

2. Identif ier-1, identif ier-2. . . and literal-1, 
literal-2. .. specify keys that refer to records in the file. 

3. Statement-1, statement-2. . . are any valid COBOL statements. 

4. The RETAIN statement must be given before any record is 
accessed in a file opened for simultaneous update. If it is 
given for a file not open for simultaneous update, the 
program is terminated. 

5. The NEXT RECORD clause must be specified when you want to 
retain the next record in the file. LOW-VALUES cannot be 
moved to the RECORD KEY for a RETAIN of the next record. 

6. The RETAIN statement does not cause any change in the record 
area or any change in the positioning in the file. You must 
explicitly issue I/O statements for these changes to be 
performed. Thus, the RETAIN statement does not cause an 
end-of-file condition. 

7. The action performed by any I/O operation is logically the 
same as if the file were not opened for simultaneous update. 
For example, the RELATIVE KEY is examined to determine the 
record to be read/written/rewritten/deleted in a relative 
file; and the RECORD KEY is examined to determine the record 
to be read/written/rewritten/deleted in an indexed-sequential 
file. The only difference is that a check is made to 
ascertain that the record has been retained. Thus, retaining 
a record does not cause that record to become the current 
record of the file. Only I/O operations can cause a record 
to become the current record of the file. 

8. You can retain nonexistent records in a file. You can 
perform a WRITE to a nonexistent record, but you will receive 
an error if you attempt to perform any other I/O operation on 
these nonexistent records. 

9. It is possible to mix requests for records from random and 
indexed-sequential files in the same RETAIN statement. 

10. Using the RETAIN for WRITE, DELETE, or ANY VERB statements 
with indexed-sequential files locks the entire file, not just 
the record. 
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11. When you retain a record for READ, other users are also 
allowed to read that record, but cannot perform any other 
form of I/O on that record (WRITE, REWRITE, or DELETE). When 
you retain a record for any use other than READ, all other 
users are banned completely from accessing that record. 

12. The statement included in the FOR clause in the RETAIN 
statement must agree with at least one statement in the FOR 
clause in the OPEN statement for the file. If ANY VERB is 
specified in the FOR clause in the RETAIN statement, the file 
must have been explicitly opened for ANY VERB. 

13. The record or records named in the RETAIN statement are 
automatically freed upon execution of the statement or 
statements (except ANY VERB) in the FOR clause of the RETAIN 
statement. If you do not issue an I/O statement for the 
record, or if the UNTIL FREED phrase is used, you must 
explicitly free the record with the FREE statement. If a 
record is not freed, you cannot retain any more records in 
any of your files open for simultaneous update. 

14. The UNTIL FREED phrase allows you to retain several logically 
related records for processing without their being freed 
automatically by the I/O statements. Instead, the records 
are retained until they are explicitly freed by means of the 
FREE statement. 

15. The KEY phrase allows you to specify a particular record or 
to specify more than one record in a file. 

16. All records to be retained concurrently, whether in one or 
several files, must be retained in the same RETAIN statement. 
Once records in any file have been retained, no other records 
in any open file can be retained until the currently retained 
records have all been freed. This rule prevents a deadly 
embrace situation. 



NOTE 

Deadly embrace occurs when two users 
make conflicting demands upon a file 
resource and neither is willing or able 
to yield to the other. The result is 
that both programs hang or stall waiting 
for the resource to become available. 

17. When attempting to retain records, the program is suspended 
if any one of the records is not available. If you wish the 
program to perform other processing, rather than be 
suspended, you can include an UNAVAILABLE phrase in the 
RETAIN statement. Any valid COBOL statement can be used in 
the UNAVAILABLE phrase. 
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18. Use of the RETAIN statement differs according to the 
organization of the file. Each type of file is described 
separately below. 
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19. Relative files 

a. Records in a relative file can be retained only for READ, 
WRITE, READ-REWRITE, REWRITE, DELETE, or ANY VERB. For 
relative files, ANY VERB means READ, WRITE, READ-REWRITE, 
DELETE, and REWRITE. 

b. When the KEY phrase is specified, the value of the key 
designates a specific record in the file, just as the 
RELATIVE KEY of the file does. Thus, record 1 is always 
the first record in the file. If you specify the NEXT 
option, however, the record retained is the next 
sequential record in the file. The next record in the 
file depends on the last I/O operation performed (READ, 
REWRITE, DELETE or WRITE) and the I/O operation for which 
the record is to be retained. If the last record was 
written, the next record to be retained for READ, WRITE, 
DELETE, or READ-REWRITE is defined to be the one 
following the record just written. Similarly, if the 
last record was read, the next record to be retained for 
READ or DELETE is defined to be the one following the 
record just read. However, the next record to be 
retained for REWRITE is defined to be the record just 
read. Note that the next record actually read or written 
depends on the value of the RELATIVE KEY, not on the 
record specified in the RETAIN statement. 

c. If you wish to read/rewrite the file sequentially, you 
should select the NEXT option in the RETAIN statement, 
and use the READ NEXT syntax so that you are performing 
I/O on the same records that you are retaining. If you 
wish to read/rewrite the file randomly, you should set 
the RELATIVE KEY to the desired record and either use the 
same value in the KEY in the RETAIN statement or use no 
KEY value in the RETAIN statement. 

d. If the KEY phrase is not specified, the value used for 
the key is taken from the RELATIVE KEY specified for the 
file. 

e. The value of a key can be specified by any identifier. 
The identifier must be numeric, and can be subscripted or 
qualified or both. For the sake of efficiency, its USAGE 
should be COMPUTATIONAL or INDEX. The value of the key 
can also be specified by a positive integer numeric 
literal containing ten or fewer digits. 
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Example 



OPEN 1-0 PART FOR READ AND REWRITE ALLOWING OTHERS 

NONE. 
MOVE 64 TO PART- ACTUAL-KEY 
RETAIN PART FOR READ. 
READ PART, INVALID KEY GO TO ERR. 



RETAIN PART NEXT FOR REWRITE, 

PART KEY 35 FOR READ AND REWRITE. 
REWRITE PARTREC. 
MOVE 35 TO PART-ACTUAL-KEY. 
READ PART, INVALID KEY GO TO ERR. 
REWRITE PARTREC. 

20. Indexed-sequential files 

a. Records in an indexed-sequential file can be retained for 
READ, WRITE, REWRITE, DELETE, READ-REWRITE, and ANY VERB. 
For indexed-sequential files, ANY VERB means READ, WRITE, 
REWRITE, and DELETE. 

b. When RETAIN FOR DELETE, WRITE, or ANY VERB is specified 
for an indexed-sequential file, the entire file, rather 
than just the block, is locked for simultaneous update. 

c. When the KEY phrase is specified, the value of the key 
refers to a specific record in the file, just as the 
RECORD KEY does. 

d. The value specified in the KEY phrase must normally be an 
identifier that specifies a field that agrees with the 
RECORD KEY defined for the file in size, class, usage, 
and number of decimal places. However, if the RECORD KEY 
of the file is numeric, a positive numeric literal of ten 
or fewer digits can be used as the value in the KEY 
phrase. For the sake of efficiency the key should be 
USAGE COMPUTATIONAL or INDEX. 

e. If the KEY phrase is not specified, the value used for 
the key is taken from the current RECORD KEY for the 
file. 

f. If NEXT is specified, the record retained is that 
following the last record referenced in the same RETAIN 
statement or by a READ, WRITE, REWRITE, or DELETE 
statement. 



Example 



OPEN 1-0 LETTERS FOR READ ALLOWING OTHERS READ AND 

REWRITE. 

MOVE "B" TO RECORD KEY. 

RETAIN LETTERS FOR READ. 

READ LETTERS INVALID KEY GO TO ERRS. 
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5.9.31 REWRITE 

Function 

The REWRITE statement replaces an already existing record in a file. 

General Format 

REWRITE record-name Q FROM identifier] |~ INVALID KEY imperative-statement^] 

Technical Notes 

1. Sequential files and files with sequential access 

a. The file must be open for INPUT-OUTPUT. 

b. The last file operation must have been a successful READ. 

c. The record that is replaced is the record that was just 
read. 

d. The INVALID KEY clause must not be specified. 

2. Indexed and relative files (dynamic or random access) 

a. The file must be open for INPUT-OUTPUT. 

b. The record that is replaced is the record indicated by 
the current value of the record (indexed) or RELATIVE 
(relative) KEY. 

c. The INVALID KEY clause is required if no USE procedure 
has been specified. 

d. The INVALID KEY clause is executed if no record exists 
corresponding to the current value of the key or if the 
current value of the RELATIVE KEY (for relative files) is 
either zero or a negative number. 

3. If the FROM option is used, the statement is equivalent to: 

MOVE identifier TO record-name 

REWRITE record-name (without the FROM option) 

4. The INVALID KEY phrase must not be specified for a REWRITE 
statement that references a file in sequential mode. This is 
because a REWRITE may only be done on a file in 
sequential-access mode after a successful READ statement is 
executed . 

5. The INVALID KEY phrase must be specified in the REWRITE 
statement for files in the random- or dynamic-access mode for 
which an appropriate USE procedure is not specified. 
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5.9.3 2 SEARCH 



Function 



The SEARCH statement is used to search a table until a specified 
condition exists. 



General Format 



SEARCH identifier-1 



VARYING | lndex-name"l }J C AT IM imperati ve-statement-l] 



WHEN condition-1 



WHEN condition-2 



/ imperative-statement-2 \ 
\ NEXT SENTENCE / 



j imperativ 
I NEXT SENT 



e-statement-3 
ENTENCE 



(]... 



SEARCH ALL identifier-1 |j\T ENJD imperati ve-statement-l] 



WHEN 



data-name-1 { | S S |ML TOj <11teral . 1 
condi tion-name-1 



identi fier-3 

1 iteral -1 

arithmetic-expression-1 



AND 



data-name-2 /" IflUALTO) (Identifl 
I IS = j < 1 iteral- 



condi tion-name-2 



er-4 
2 
ari thmeti c-expression-2 



li 



mperati ve-statement-2 
NEXT SENTENCE 



Technical Notes 

1. If any of the optional clauses are present, they must appear 
in the order shown. 

2. Identifier-1 must not be subscripted or indexed, but its 
description must contain an OCCURS clause with an INDEXED BY 
option. In format 2, identifier-1 must also contain a KEY 
option in its OCCURS clause. 

3. Identifier-2 must be an index, or an elementary numeric item 
with no places to the right of the decimal point. 
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4. In format 1, condition-1 , condition-2, etc., can be any 
condition described in Section 5.5. 

5. In format 2, condition-1 must consist of a relation condition 
incorporating the EQUAL TO or equal sign, or a condition-name 
condition where the VALUE clause contains only a single 
literal, or a compound condition consisting of two or more 
such simple conditions connected by AND. 

A data-name that appears in the KEY clause of identifier-1 
must appear as the subject or object of a test, or be the 
name of the data-item with which the tested condition-name is 
associated. However, all preceding data-names in the KEY 
clause must also be included within condition-1. 

6. If the AT END clause is not present, AT END NEXT SENTENCE is 
assumed. 

7. If the VARYING option is not specified, the first index 
specified in the INDEXED BY option for identifier-1 is used. 

If the VARYING option is used and identifier-2 is the name of 
an item specified in the INDEXED BY option for identifier-1, 
then identifier-2 is used as the index. If identifier-2 is 
not specified in the INDEXED BY option for identifier-1, the 
first index-name in the INDEXED BY option is used as the 
index, and identifier-2 will contain the value of the index 
at each step of the search. 

8. If format 1 of the SEARCH verb is used, a serial type of 
search takes place, starting with the current index setting. 

If, at the start of execution of the SEARCH statement, the 
index contains a value that is not positive or is greater 
than allowed (greater than the number of occurrences or 
greater than any DEPENDING item), the statement (s) specified 
in the AT END statement is executed. 

If, at the start of execution of the SEARCH statement, the 
index is within the allowed range of values, the WHEN 
conditions are evaluated one at a time. If any condition is 
true, the associated statement (s) is executed. If no 
condition is true, the index is incremented by 1, and the 
search operation is executed again. 

The contents of the index are always left as they were when 
the search is terminated, either by a WHEN condition, or the 
AT END condition. 

9. If format 2 of the SEARCH verb is used, a binary search takes 
place. All the keys in the table must be in order (ascending 
or descending) and all the elements in the table must be 
filled. It is up to you to ensure that the keys associated 
with the table are in order and the table filled. If the 
keys are not in order, or if there are empty elements in the 
table being searched, the SEARCH may take the AT END path 
even if the key being searched for is there. If the table is 
not going to be filled, using the DEPENDING ON clause with 
OCCURS effectively shortens the table. 
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The initial contents of the index are ignored; instead, the 
table is examined until the WHEN condition is satisfied (in 
which case statement-3 and any following statements are 
executed) or until the entire table is examined (in which 
case the AT END statement (s) is executed). 

When the search is terminated, the contents of the index 
reflect the occurrence number of the entry that satisfied the 
WHEN condition if it was satisfied, or is arbitrary if it was 
not satisfied. 

10. In either format, after any WHEN or AT END statement (s) is 
executed, control is transferred to NEXT SENTENCE unless that 
statement contained a GO TO. 

11. If identifier-1 is a data item subordinate to a data item 
that contains an OCCURS clause (that is, this is a 
multidimensional table) , only the index associated with 
identifier-1 is modified during the search. To search an 
entire multidimensional table, the SEARCH statement must be 
executed several times. 

Example 

01 TABLE. 

02 TABL1 OCCURS 200 TIMES INDEXED BY I, 
ASCENDING KEYS A, B. 
03 A, PICTURE XXX. 
03 FOO, PICTURE X(20) . 
03 B, PICTURE 9(4) . 
03 DES, PICTURE X(40) . 
03 AM, PICTURE S9(5)V99. 

SEARCH ALL TABL1 , AT END GO TO WHAT-HAPPENDED; 

WHEN A (I) = "XYZ" AND B(I) = 350 GO TO GO-ONE. 
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5.9.33 SET 



Function 



The SET statement allows a data-item to be incremented, decremented, 
or set to a value. 



General Format 



SET 



( identi 
\ index- 



fier-1 
name-1 



_ identi fier-2 ~] 
~ index-name-2 2 



identifier- 3 
TO < index-name-3 
integer-1 



crT . . /i r- j ri I UP BY I Hdentifier-4 \ 

SEJ mdex-name-4 Qindex-name-Sj ... { qow£by Minteger-2 / 



Technical Notes 

1. All identifiers must be numeric elementary items described 
without any positions to the right of the assumed decimal 
point. 

2. All literals must be integers, or the figurative constant 
ZERO. 

3. The SET statement causes identif ier-1 , identif ier-2 , . . . to 
be set (TO) , incremented (UP BY) , or decremented (DOWN BY) 
the value of identifier-3 or literal-1. 
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5.9.34 SORT 



Function 



The SORT statement creates a sort file containing the contents of one 
or more files that have been ordered according to user-specified keys. 



General Format 



SORT file-name-1 ON { pesceNDIN g} KEY data-" 3 ™ 2 - 1 [_ data-name-2] 

.. ( ASCENDING i ,, cv , . _ r. . r\ 

) DESCENDIN G f data-name-3 I data-name-4 J 



[COLLATING SEQUENCE IS alphabet-name] 



INPUT PROCEDURE IS section-name-1 



US 



ING file-name-2 [fi 1 e-name-3^ 



OUTPUT PROCEDURE IS section-name-3 



GIVING file-name-4 



"( THROUGH ) 
( THRU f 



( TH ROUGH \ 
1 THRU } 



section-name-2 



section-name-4 



1! 



Technical Notes 



File-name-1 must be described in an SD file description entry 
in the Data Division. Each data-name must represent data 
items described in records associated with file-name-1. 

File-name-2, file-name-3, and file-name-4 must be described 
in an FD file description. All records associated with these 
files must be large enough to contain all of the KEY 
data-names. You can use any number of input files with a 
SORT statement. 

The data-names following the word KEY are listed in order of 
decreasing significance without regard to how they are 
organized in the SD record description. 

The data-names may be qualified but not subscripted. 

SORT statements may appear anywhere in the Procedure Division 
except in the DECLARATIVES portion or in an input or output 
procedure associated with a sort, or an output procedure 
associated with a merge. 
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6. When the ASCENDING clause is used, the sorted sequence is 
from the lowest value to the highest value; when a 
DESCENDING clause is used, the sorted sequence is from the 
highest value to the lowest value. 

7. The input procedure, if present, must consist of one or more 
sections or paragraphs that appear contiguously in the 
program and do not form a part of any output procedure. The 
input procedure must contain at least one RELEASE statement 
in order to transfer records to the sort subroutine. 

8. The output procedure, if present, must consist of one or more 
sections or paragraphs that appear contiguously in a source 
program and do not form a part of any input procedure. The 
output procedure must contain at least one RETURN statement 
in order to make sorted records available for processing. 

9. ALTER, GO and PERFORM statements in the input procedure are 
not permitted to refer to procedure-names outside the input 
procedure; similarly, ALTER, GO and PERFORM statements in 
the output procedure are not permitted to refer to 
procedure-names outside the output procedure. 

10. If an input or output procedure is specified, those 
procedures are PERFORMED by the SORT statement, and all rules 
relating to the range of a PERFORM must be observed. 

11. 




LI. OPEN INPUT file-name-2 

L2. READ file-name-2 INTO sort-record; AT END GO TO 

L3. RELEASE sort-record. 

GO TO L2. 
L3. CLOSE file-name-2. 

12. If the GIVING option is specified, all the sorted records in 
file-name-1 are automatically transferred to file-name-4. 
File-name-4 must not be open when the SORT statement is 
executed. Any USE PROCEDURES associated with file-name-4 
will be executed as appropriate. The GIVING option is 
equivalent to the following OUTPUT PROCEDURE: 

L4. OPEN OUTPUT file-name-4. 

L5. RETURN sort-file INTO record-name-4 ; AT END GO TO L6 

WRITE record-name-4. 

GO TO L5. 
L6. CLOSE file-name-4. 
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13. An ISAM file cannot be sorted directly using the non-COBOL 
standalone SORT. 

ISAM files are by definition a sorted set. In designing the 
file you should use the order in which the file will be most 
often accessed. If you wish to access it in a different 
order, write a program with an input procedure that reads the 
ISAM file. The input procedure can release records to the 
sort. You can read the file in two ways - sequentially using 
READ NEXT, or randomly by selecting the desired record and 
inserting the key value in the RECORD KEY. Usually, reading 
the file sequentially and allowing SORT to order the records 
is much faster. If you wish to use an ISAM file as output, 
you must have an empty ISAM file for output, return records 
from the sort and write them into the new ISAM file. 

14. The collating sequence used to compare the specified 
alphabetic data items is determined in the following order: 

a. SORT first looks at the collating sequence defined in the 
COLLATING SEQUENCE phrase in the SORT statement. 

b. If the COLLATING SEQUENCE phrase was not specified, SORT 
uses the collating sequence defined in the PROGRAM 
COLLATING SEQUENCE of the OBJECT-COMPUTER paragraph. 

c. If neither of the above two phrases have been specified, 
SORT uses the normal collating sequence. For example, 
SORT would use ASCII for ASCII items and EBCDIC for 
EBCDIC items. 

15. Refer to the SORT User's Guide for more information on SORT. 
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5.9.35 START 

Function 

The START statement provides for logical positioning within a relative 
or indexed file, for subsequent sequential retrieval of records. 

General Format 

'IS EQUAL TO 

IS = 



START file-name 



vcm / IS GREATER THAN N . . „ amQ 
KEY < ._ r- / data-name 

IS N0J LESS THAN 
.IS NOT < 



f lN VALID KEY imperati ve-statementj 

Technical Rules 

1. File-name must be the name of a file with sequential or 
dynamic access. 

2. Data-name may be qualified. 

3. The INVALID KEY phrase must be the data item specified if no 
applicable USE procedure is specified for file-name. 

4. The file associated with file-name must be open in the INPUT 
or 1-0 mode at the time the START statement is executed. 

5. If you omit the KEY phrase, you imply the phrase IS EQUAL TO 
data-name, where data-name refers to the RECORD KEY of an 
indexed file or the RELATIVE KEY of a relative file. 

6. If the file associated with file-name is a relative file, and 
you include data-name, data-name must be the data item 
specified in the RELATIVE KEY phrase of the file control 
entry. If the file is an indexed one and you include 
data-name, data-name must be either the data item specified 
as the record key, or an "approximate key". An "approximate 
key" is a part of a key, whose leftmost character position is 
the same position as the leftmost position of the RECORD KEY 
but which is not the entire key. Suppose, for example, you 
have an ISAM file whose key is of the form 

. YY-MM-DD-XX 
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where YY is the year, MM the month, DD the day, and XX the 
charge sequence number. If you wished to begin processing 
the file at the first record of July 1978, you could write 
the following code: 

SELECT CHARGE-FILE 

ASSIGN TO DSK 
ORGANIZATION IS INDEXED 
ACCESS MODE IS DYNAMIC 
RECORD KEY IS CHG-REC-KEY. 



MOVE "78-07-" TO CHG-REC-KEY. 

START CHARGE-FILE KEY IS GREATER THAN CHG-REC-KEY, 
INVALID KEY GO TO ERR-RTN. 

The effect of this would be to find the first record in the 
file whose key collates higher than 78-07- and then position 
the record pointer in front of that record. If you specified 
NOT LESS THAN instead of GREATER THAN the pointer would be 
positioned in front of the record whose key is 78-07-AAAAA if 
such a record existed; otherwise the pointer would be 
positioned as in the actual example. Note that only indexed 
files may use the "approximate key", and that the leftmost 
positions of the record key and the "approximate key" must be 
the same character position in the record, not simply contain 
the same character. 

7. If the comparison is not satisfied by any record in the file, 
the INVALID KEY condition exists, the execution of the START 
statement is unsuccessful, and your logical position in the 
file is undefined. When this is the case, the 
imperative-statements following the INVALID KEY phrase are 
executed. 

8. The execution of the START statement causes the value of the 
FILE STATUS data item, if any, associated with file-name to 
be updated. 
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5.9.36 STOP 

Function 

The STOP statement halts the object program, 

General Format 

( RUN 



STOP 



;run ) 

[ljteralf 



Technical Notes 

1. The literal may be numeric or nonnumeric or may be any 
figurative constant except ALL. 

2. If the literal is numeric, it must be an unsigned integer. 

3. If the literal option is used, the literal is displayed on 
the user's terminal. The literal may be a figurative 
constant; in this case, a single character is displayed. 
The program waits for the operator to type 

CONTINUE 

Following receipt of this message, the program continues 
execution at the statement following the STOP. 

4. If the RUN option is used, all files currently open are 
closed, and execution of the program is terminated. 
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5.9.37 STRING 



Function 



The STRING statement is used to concatenate the partial or complete 
contents of several data items into a single data item. 



General Format 



STRING 



!identifier-l 
literal-1 

{identi fier-4 I 
literal -4 J 



identi fier-2 
literal-2 



identi fier-5 
1 iteral-5 



(identifier- 3 j 

DELIMITED BY {literal -3 ) 

j SIZE ( 

! identi fier-6 I 
literal -6 > 
SIZE ) 



INTO identi fier-7 TwiTH POINTER identifier-8j 
£0N OVERFLOW imperative-statement] 



Technical Notes 



1. Source Items 



The data items referenced by identif ier-1, 
identif ier-2, . . . are called source data items. 

A numeric source item is moved (according to the rules 
for numeric transfers) to an intermediate unsigned 
numeric data item of the same size as the source whose 
USAGE is the same as that of identifier-7 , and then it 
is treated as alphanumeric. 

If subscripting or indexing is needed to identify a 
source data item, the values of the required subscripts 
and/or indexes and the depending items, if any, just 
prior to the transfer of that particular source item are 
used. 

Literal-1; literal-2... are called source literals. 

Source literals must be alphanumeric literals or 

alphanumeric figurative constants without the ALL 
modifier . 

If a source literal is a figurative constant, it refers 
to a single-character literal of the specified type. 
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2, Delimiter Items 

a. Each series of source items specified in the STRING 
statement must be followed by a DELIMITED BY phrase. 
This phrase specifies the delimiter condition to be 
associated with each source item in that series. 

b. The data items referenced by identifier-3 and 
identifier-6 are called delimiter data items. 

c. A numeric delimiter item is moved (according to the rules 
for numeric transfers) to an intermediate unsigned 
numeric data item of the same size as the delimiter whose 
USAGE is the same as that of identifier-7 and then 
treated as alphanumeric. 

d. If subscripting or indexing is needed to identify a 
delimiter data item, the values of the required 
subscripts and/or indexes and the depending items, if 
any, just prior to the transfer of the source item 
corresponding to that particular delimiter item are used. 

e. Literal-3 and literal-6 are called delimiter literals. 
Delimiter literals must be alphanumeric literals or 
alphanumeric figurative constants without the ALL 
modifier . 

f. If a delimiter literal is a figurative constant, it 
refers to a single-character literal of the specified 
type. 

g. If a delimiter data item or a delimiter literal is 
specified, either the content of the data item during the 
execution of the STRING statement or the value of the 
literal is the delimiter string for each source item 
corresponding to that delimiter item. 

In this case, the delimiter condition for each of the 
corresponding source items is the first occurrence in the 
source item of a character string that matches the 
delimiter string. If there is not such character string 
in the source item, the delimiter condition is the 
rightmost boundary of that source item. 

NOTE 

Two character strings match if, and only if, they 
are of equal length and each character of the 
first string is equivalent, according to the 
rules for code conversion, to the corresponding 
character of the second string. 

h. If the DELIMITED BY SIZE phrase is specified, the only 
delimiter condition for each of the corrsponding source 
items is the rightmost boundary of the source item. 
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3. Destination 

a. The data item referenced by identifier-7 is called the 
destination. The destination must be an unedited 
alphanumeric data item. It cannot be justified (that is, 
the JUSTIFIED clause cannot be used for this item) . 

b. If subscripting or indexing is needed to identify the 
destination, the values of the required subscripts and/or 
indexes and the depending items, if any, just prior to 
the execution of the STRING statement are used. 

4. Pointer 

a. The data item referenced by identif ier-8 is called the 
pointer. The pointer must be an unedited integer data 
item of sufficient size to contain a value one greater 
that the size of the destination. 

b. The pointer serves as a character index for the 
destination. 

c. If subscripting or indexing is needed to identify the 
pointer, the values of the required subscripts and/or 
indexes and the depending items, if any, prior to the 
execution of the STRING statement are used. 

d. If the POINTER phrase is specified, the pointer is 
directly available to you. It must be initialized before 
the execution of the STRING statement to a value greater 
than zero and not greater than the size of the 
destination. 

e. If the POINTER phrase is not specified, the STRING 
statement is always executed as if you have specified a 
pointer and set the initial value to 1. In this case, 
the pointer is not directly available to you. 

f. The STRING statement is executed as if the initial value 
of the pointer were stored in a temporary location. This 
temporary location is used as the pointer during the 
execution of the STRING statement. The value in this 
temporary location is stored in the real pointer item 
before any subscripting is done and at the end of 
execution of the STRING statement, 

5. Execution 

a. When the STRING statement is executed, each source item 
in turn, starting with the first source item specified, 
is transferred to the destination character by character, 
beginning at the leftmost character position of the 
source item and continuing to the right, until the 
delimiter condition corresponding to that source item has 
been encountered or the destination has been filled. 
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b. If a delimiter item was specified for a source item and a 
string of characters is found in the source item matching 
the delimiter string, all characters of the source item 
preceding the matching string are used in the transfer to 
the destination, but none of the characters that are in 
the matching string and no characters following it in the 
source item are used in the transfer. 

c. If no delimiter item was specified for a source item or 
no string of characters is found in the source item 
matching the delimiter string, all characters of the 
source item are used in the transfer to the destination. 

d. During the execution of the STRING statement, characters 
are transferred to the destination from the source items 
as if the destination were a table of single-character 
data items indexed by the pointer, which is automatically 
incremented after each character transfer. 

e. The first character transferred is stored in the 
character position of the destination indicated by the 
initial value of the pointer. The nth character 
transferred is stored in the character position indicated 
by the initial value of the pointer plus n-1. 

f. The transfer of characters ends when one of the following 
conditions occur. These conditions are specifically 
checked for in the order stated. 

1. The initial value of the pointer is not a positive 
integer less than or equal to the size of the 
destination. 

2. All appropriate characters of all source items have 
been transferred to the destination. 

3. A character has been transferred to the last 
character position of the destination, though not all 
appropriate characters of all source items have been 
transferred. 

g. If the transfer of characters to the destination is 
terminated because of condition 2 of note f, those 
character positions of the destination to which 
characters were not transferred, if any, will retain the 
values they contained before the execution of the STRING 
statement. That is, remaining character positions in the 
destination are not space-filled. 

h. After the transfer of characters to the destination has 
ended, the pointer is set to a value one greater than the 
ordinal number of the last character position of the 
destination to which data was transferred. If no data 
was transferred to the destination, the pointer is 
unchanged . 
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6. Overflow 

a. The STRING statement is considered to have caused an 
overflow if the transfer of characters to the destination 
is terminated because of either of the conditions shown 
below: 

1. The initial value of the pointer is not a positive 
integer less than or equal to the size of the 
destination. 

2. A character has been transferred to the last 
character position of the destination, though not all 
appropriate characters of all source items have been 
transferred. 

b. If the ON OVERFLOW phrase is not specified, after the 
execution of the STRING statement, regardless of whether 
or not there was an overflow, control passes to the point 
in the program immediately following the STRING 
statement. 

c. If the ON OVERFLOW phrase is specified, after the 
transfer of characters has ended and the pointer has been 
set to the appropriate value, the flow of control of the 
program depends on whether or not there was an overflow. 

1. If an overflow did not occur, control passes to the 
point in the program corresponding to the end of the 
sentence containing the STRING statement (following 
all the statements in the ON OVERFLOW phrase) . 

2. If an overflow did occur, control passes to the point 
in the program corresponding to the beginning of 
statement-1. 
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5.9.38 SUBTRACT 



Function 



The SUBTRACT statement is used to subtract one, or the sum of two or 
more, numeric items from one or more numeric items and set the values 
of one or more items to the result. 



General Format 

mBMl telUr 1 } [merlCr 2 ••• FROMidentifier-m [ffilfflJO] 

identifier-n [ROUNDED^ ... [on SIZE ERROR imperati ve-statementj 

identifier- 11 [identi fier-2 | 
literal-1 ( literal-2 

fl idenl 



SUBTRACT 



identi fier-m 
1 iteral-m 



GIVING identifier-n ROUNDED 



itifier-o ROUNDED 



SUBTRACT 



ON SIZE error imperative-statement 

( corresponding ) 

J CORR i 

|~0N SIZE ERROR imperati ve-statementj 



identifier-1 FROM identi fier-2 



[ rounded! 



Technical Notes 



Each SUBTRACT statement must contain at least two operands 
(that is, a subtrahend and a minuend). In formats 1 and 2, 
each identifier must refer to an elementary numeric item, 
except that identifiers to the right of the word GIVING may 
refer to numeric edited items. In format 3, each identifier 
must refer to a group item. 



Each literal must be a 
constant ZERO. 



numeric literal or the figurative 



The composite of all operands (that is, the data item 
resulting from the superimposition of all operands aligned by 
decimal point) must not contain more than 18 decimal digits 
for the standard compiler and not more than 36 digits for the 
BIS-compiler . In either case, a maximum of 18 digits can be 
stored in the receiving field. (See Section 1.1 for a 
definition of the BIS-compiler.) 

Format 1 causes the values of the operands preceding the word 
FROM to be added together, and this sum to be subtracted from 
the values of identif ier-m, identifier-n, and so forth. 
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4. Format 2 causes the values of the operands preceding the word 
FROM to be added together, the sum subtracted from 
identif ier-m or literal-m, and the result stored as the new 
values of identif ier-n , identif ier-p, and so forth. The 
current values of identif ier-n , identif ier-p, and so forth, 
do not enter into the computation. 

5. Format 3 causes the data items in the group item associated 
with identifier-1 to be subtracted from and stored into 
corresponding data items in the group item associated with 
identif ier-2. The criteria used to determine whether two 
items are corresponding are described in Section 5.7, The 
CORRESPONDING Option. 

6. The ROUNDED and SIZE ERROR options are described in Section 
5.6, Common Options Associated with Arithmetic Verbs. 
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5.9.39 TERMINATE 

Function 

The TERMINATE statement ends the processing of a report. 

General Format 

TERMINATE report-name-1 rreport-name-2j 

Technical Notes 

1. Each report-name must be defined by an RD entry in the Report 
Section of the Data Division. 

2. All control footings associated with the report are produced 
as if a control break had occurred at the highest level. In 
addition, the last PAGE FOOTING and any REPORT FOOTING report 
groups are produced. 

3. A second TERMINATE statement for a particular report may not 
be executed until another INITIATE statement is executed for 
that report. 

4. The TERMINATE statement does not close the file associated 
with the report; a CLOSE statement must be executed after 
the TERMINATE statement is executed. 
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5.9.40 TRACE 

Function 

The TRACE statement causes COBDDT to trace paragraphs or to stop 

tracing paragraphs at run time. When a paragraph is traced, its name, 

enclosed in angle brackets (<>) , is typed each time that the paragraph 
is entered. 

General Format 

TRACE ;^ p 



Technical Notes 

1. The TRACE statement works with the COBDDT utility to help you 
debug your COBOL-74 program. COBDDT must be loaded with your 
program for the program to be traced. (See Section 7.3.1, 
Loading and Starting COBDDT, for more information about using 
COBDDT.) If COBDDT is not loaded, the TRACE calls are 
ignored . 

2. The compiler generates trace calls for each paragraph in the 
program if the /P switch is not included in the command 
string. If the /P switch is included in the command string, 
the trace calls are not generated. 

3. Although the compiler generates trace calls when the /P 
switch is not present, tracing is not performed unless you 
include the TRACE ON statement in the program or specify the 
TRACE ON statement to COBDDT. 

4. The TRACE ON statement causes all ensuing paragraphs to be 
traced; that is, their names, enclosed in angle brackets 
(<>) , are typed each time they are entered. Tracing 

continues until either the end of program is reached or a 
TRACE OFF statement is encountered or is specified to COBDDT. 

5. The TRACE OFF statement stops tracing of all ensuing 
paragraphs until either the end of program is reached or a 
TRACE ON statement is encountered or is specified to COBDDT. 

6. When compiling for a production run, you should include the 
/P switch in the command string so that trace calls will not 
be generated and TRACE statements in the program will be 
ignored. The following example shows paragraphs with TRACE 
OFF and TRACE ON statements included. 
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PROCEDURE DIVISION 
PARA, 



TRACE 
PARB 



TRACE 
PARC 



TRACE 
PARD 



ON, 



OFF 



ON, 



Paragraph PARB and PARD are traced. Paragraph PARC is not 
traced because the TRACE OFF statement is included 
immediately before it. If the /P switch is included in the 
command string when this program is compiled, the TRACE 
statements will be ignored and trace calls will not be 
generated. 
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5.9.41 UNSTRING 



Function 

The UNSTRING statement is used to split a single data item (for 
example, a text string) into several parts, depending on the 
occurrence of specified delimiters, and to store the parts into 
separate data items where they may be more easily accessed by the 
COBOL program. 



General Format 

UNSTRING identifier- 1 



DELIMITED BY 



[Akk] 



i denti f ier-2 
literal-1 



™ M me'lf- 



er-3 
■2 



INTO identifier-4 [" DELIMITER IN i denti fier-slF cOUNT IN i denti fier-6~] 
identifier-7 ["DELIMITER IN i denti fier-8~j TcOUNT IN i denti fier-9j 



WITH POINTER i denti fi er-10 



[ 

|0N OVERFLOW imperative-statement 



TALLYING IN i denti fier-11 



Technical Notes 

1. Source Items 



The data item referenced by identifier-1 is called the 
source item. The source item must be a DISPLAY-6, 
DISPLAY-7, or DISPLAY-9 data item. A numeric source item 
is moved to an intermediate unsigned numeric data item of 
the same size according to the rules for numeric 
transfers and then is treated as alphanumeric. 

If subscripting or indexing is needed to identify the 
source, the values of the required subscripts and/or 
indexes and the depending items, if any, just prior to 
the execution of the UNSTRING statement are used. 



2. Destination Items 



The data items referenced by identifier-4, 
identifier-7,..., are called destination items. 
Destination items can be any kind of data items. 

If subscripting or indexing is needed to identify a 
destination item, the values of the required subscripts 
and/or indexes and the depending items, if any, just 
prior to the transfer of data to that destination item 
are used. 
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3. Delimiter Items 

a. The data items referenced by identif ier-2, 
identif ier-3, . . . , are called delimiter data items. 

b. A numeric delimiter item is moved (according to the rules 
for numeric transfers) to an intermediate unsigned 
numeric data item of the same size as the delimiter whose 
USAGE is the same as that of identifier-1 and then is 
treated as alphanumeric. 

c. If subscripting or indexing is needed to identify a 
delimiter data item, the values of the required 
subscripts and/or indexes and the depending items, if 
any, just prior to the transfer of data to each 
successive destination item are used. 

d. Literal-1, literal-2, . . . , are called delimiter literals. 
Delimiter literals must be alphanumeric literals or 
alphanumeric figurative constants without the ALL 
modifier . 

e. If a delimiter literal is a figurative constant, it 
refers to a single-character literal of the specified 
type. 

f. If a delimiter data item or a delimiter literal is 
specified, the contents of the data item or the value of 
the literal is a delimiter string for the source. 

g. If more than one delimiter item is specified, the 
delimiter items are separated by the connective OR. In 
this case, the several delimiter strings are ordered by 
the order in which the delimiter items specifying them 
occur in the UNSTRING statement. 

h. If the ALL phrase is specified with a delimiter item, the 
delimiter string which that item specifies is considered 
to consist of as many occurrences of that simple 
delimiter string as can be found contiguously stored in 
the source. 

i. A delimiter condition is an occurrence in the source of a 
character string, not contained in the portion of the 
source that has already been scanned, that matched one of 
the delimiter strings, or the rightmost boundary of the 
source. 

4. Delimiter Storage Items 

a. A DELIMITER IN phrase may be specified only if the 
DELIMITED BY phrase is specified. 

b. The data items referenced by identifier-5 and 
identifier-8 are called delimiter storage items. 



5-101 January 198 



THE PROCEDURE DIVISION 

UNSTRING (Cont.) 



c. If subscripting or indexing is needed to identify a 
delimiter storage item, the values that are used are the 
values of the required subscripts and/or indexes and the 
values of the depending items which existed just prior to 
the transfer of data to the destination item 
corresponding to that delimiter storage item. 

5. Count Storage Items 

a. The data items referenced by identifier-6 and 
identifier-9 are called count storage items. Count 
storage items must be unedited integer data items of 
sufficient size to contain a value equal to the size of 
the source. 

b. If subscripting or indexing is needed to identify a count 
storage item, the values that are used are the values of 
the required subscripts and/or indexes and the values of 
the depending items which existed just prior to the 
transfer of data to the destination item corresponding to 
that count storage item. 

c. A count storage item is used to store the number of 
characters of the source that were examined during the 
execution of the UNSTRING statement and approved for 
transfer to the destination corresponding to that count 
storage item. 

NOTE 

The number of characters of the source 
that were examined is not necessarily 
the same as the number of characters 
that were actually transferred, because 
the destination may be too small to hold 
all that were approved for transfer. 

6. Pointer 

a. The data item referenced by identif ier-10 is called the 
pointer. The pointer must be an unedited integer data 
item of sufficient size to contain a value one greater 
than the size of the source. 

b. The pointer serves as a character index for the source. 

c. If subscripting or indexing is needed to identify the 
pointer, the values of the required subscripts and/or 
indexes and the depending items, if any, just prior to 
the execution of the UNSTRING statement are used. 

d. If the POINTER phrase is specified, the pointer is 
directly available to you. It must be initialized before 
the execution of the UNSTRING statement to a value 
greater than zero and not greater than the size of the 
source . 
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e. If the POINTER phrase is not specified, the UNSTRING 
statement is always executed as if you have specified a 
pointer and set the initial value to 1. In this case, 
however, the pointer is not directly available to you. 

7. Destination Counter 

a. The data item referenced by identif ier-11 is called the 
destination counter. The destination counter must be an 
unedited integer data item of sufficient size, to contain 
a value equal to the number of destination items 
specified in the UNSTRING statement. 

b. The destination counter is used to store the number of 
destination items to which data was transferred by the 
execution of the UNSTRING statement. 

c. If subscripting or indexing is needed to identify the 
destination counter, the values of the required 
subscripts and/or indexes and the depending items, if 
any, just prior to the execution of the UNSTRING 
statement are used. 

d. If the TALLYING phrase is specified, the destination 
counter is directly available to you, and it must be 
initialized before the execution of the UNSTRING 
statement. 

e. If the TALLYING phrase is not specified, the UNSTRING 
statement is always executed as if you had specified a 
destination counter and set the initial value to 0. In 
this case, the destination counter is not directly 
available to you. 

8. Execution 

a. The execution of the UNSTRING statement is an interactive 
process. There is one iteration for each destination 
item specified in the UNSTRING statement, starting with 
the first destination item specified and continuing in 
order through the series of destination items. However, 
the iteration process will be stopped after all the data 
in the source has been used, even if not all destination 
items have been used. During execution of the UNSTRING 
statement, the pointer and an increment to be added to 
the destination counter are kept in temporary locations. 
At the start of execution of the UNSTRING statement, the 
real pointer is stored in the temporary pointer and the 
temporary destination count is set to zero. When it 
becomes necessary to move these items to the real pointer 
and real destination items, the internal pointer is moved 
into the real pointer, the internal destination counter 
is added to the real destination counter, and the 
internal destination counter is set to zero again. 
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b. Each iteration of the process involved in the execution 
of the UNSTRING statement consists of the following 
steps: 

1. Select a set of characters from the source. 

2. If the destination item, delimiter storage item, or 
count storage item is subscripted, store the internal 
pointer into the real pointer item and update the 
real destination counter. 

3. Move a representation of these characters to the 
destination item for that iteration. 

4. Move some characters to the delimiter storage item 
corresponding to that destination item, if one is 
specified. 

5. Set the count storage item corresponding to that 
destination item, if one is specified. 

6. Advance the internal pointer to indicate a new 
position in the source. 

7. Increment the internal destination counter. 

c. During the execution of the UNSTRING statement, the 
source is treated as if it were a table of 
single-character data items indexed by the pointer. The 
character position of the source indicated by the 
pointer, during each iteration of the UNSTRING process, 
is called the pointer-indicated position for that 
iteration. Only the pointer-indicated position for an 
iteration and those source character positions to its 
right are used during that iteration. Character 
positions to the left of that position are not involved 
in that iteration in any way. 

d. During each iteration of the UNSTRING process, a scan of 
the source is done to determine which characters of the 
source will be selected as the character set to be moved 
to the appropriate destination item. This scan begins at 
the pointer-indicated position and continues to the right 
in the source. 

e. When the source is scanned, certain conditions are 
detected depending on whether or not the DELIMITED BY 
phrase is specified. 

1. If the DELIMITED BY phrase is specified, the scan 
ends when either of the following conditions occurs. 

a. A string of contiguous characters in the source 
that matches one of the delimiter strings is 
found . 

b. The rightmost boundary of the source is found. 
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2. When the DELIMITED BY phrase is not specified, the 
scan ends when either of the following conditions 
occurs. 

a. A number of characters sufficient to completely 
fill the destination is found. 

b. The rightmost boundary of the source is found. 

When the scan ends, the set of characters to be moved to 
the destination item is then known. 

f. The source scan proceeds in one of two ways depending on 
whether or not the DELIMITED BY phrase is specified. 

1. If the DELIMITED BY phrase is specified, the scan 
proceeds as follows: 

a. Each character position of the source, starting 
at the pointer-indicated position and continuing 
to the right, is first checked to see if any 
source character-string beginning at that 
position matches the delimiter-string specified 
by the first delimiter item in the UNSTRING 
statement. If such a string is found, condition 
a of Note el is satisfied. 

b. If no such string is found, the same character 
position is then checked to see if any source 
character-string beginning at that position 
matches the second specified delimiter-string. 
This process is repeated using each successive 
delimiter-string until either condition a of Note 
el is satisfied or all specified delimiters have 
been tried. 

c. If condition a of Note el is not satisfied for 
the source character position under consideration 
and one of the specified delimiter-strings, that 
character position is then selected as part of 
the source to be moved to the current destination 
item. 

d. The above process continues until no more source 
character positions remain (condition b of Note 
el). 

2. If the DELIMITED BY phrase is not specified, the 
source scan proceeds until one of the following 
conditions occurs. 

a. Enough successive character positions of the 
source have been selected to entirely fill the 
destination item (condition a of Note e2) . 

b. No more source character positions remain 

(Condition b of Note e2) . 



5-105 January 1980 



THE PROCEDURE DIVISION 

UNSTRING (Cont.) 



g. During each iteration of the UNSTRING process, the set of 
contiguous source character positions selected by the 
process described in Note f is considered to be a 
complete individual data item, and is moved to the 
current destination item according to the rules for the 
MOVE statement, including any class of usage conversion 
that might be necessary. You should note that truncation 
or fill may occur during the execution of the MOVE 
statement. This data item may contain no character 
positions at all if the pointer-indicated position 
satisfied condition a of Note el or it may contain as 
much as the entire source. 

h. If a count storage item is specified with the destination 
item for an iteration of the UNSTRING process, the number 
of source characters that were examined during the 
execution of the UNSTRING statement and approved for 
transfer to the destination item is stored in that count 
storage item. 

i. If there is a delimiter storage item specified for a 
particular iteration of the UNSTRING process, then: 

1. If the selection of source character positions 
described in Note f is terminated because condition a 
of Note el holds, the string of contiguous source 
character positions that contain the match for a 
delimiter string is treated as a complete individual 
data item and is moved to the delimiter storage item 
according to the rules for the MOVE statement, 
including truncation if necessary. 

If the delimiter string that was matched is described 
with the ALL phrase, the set of source character 
positions containing a match for the simple delimiter 
string, plus every immediately succeeding set of 
contiguous source character positions containing a 
match for the same delimiter string, are used in the 
data item that is moved to the delimiter storage 
item. 

2. If the selection of source character positions 
described in Note f is terminated because of 
condition b of Note el, spaces are moved to the 
specified delimiter storage item. 

j. In an iteration of the UNSTRING process, after the 
appropriate data has been stored in the destination item, 
the delimiter storage item, and the count storage item, 
the pointer is set to a value one more than the ordinal 
number of the last source character position that 
participated in the selection process. This includes all 
character positions that were selected as part of the 
source to be moved to the destination item and, if a 
DELIMITED BY phrase is specified, all character positions 
that were used in the successful match of a delimiter 
string . 
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k. When the UNSTRING statement has been executed, the 
real destination counter is updated using the internal 
destination counter and the internal pointer is stored 
into the real pointer. 

9. Overflow 

a. If the initial value of the pointer is less than one or 
greater than the size of the source, execution of the 
UNSTRING statement is aborted before any data is 
transferred, the real pointer's value is unchanged, and 
the UNSTRING statement is considered to have caused an 
overflow. 

b. If, during the execution of an UNSTRING statement, data 
has been transferred to all of the destination items in 
accordance with Note g, but the updated pointer still 
contains a value less than or equal to the size of the 
source (that is, not all of the source character 
positions have been used in the UNSTRING process) , the 
UNSTRING statement is considered to have caused an 
overflow. 

c. If the ON OVERFLOW phrase is not specified, after the 
execution of the UNSTRING statement, regardless of 
whether or not there was an overflow, control passes to 
the point in the program immediately following the 
UNSTRING statement. 

d. If the ON OVERFLOW phrase is specified, after the 
transfer of characters has ended and the pointer and 
destination counter are set to the appropriate values, 
the flow of control of the program depends on whether or 
not there was an overflow. 

1. If an overflow did not occur, control passes to the 
point in the program corresponding to the end of the 
sentence containing the UNSTRING statement (following 
all the statements in the ON OVERFLOW phrase) . 

2. If an overflow did occur, control passes to the point 
in the program corresponding to the beginning of 
statement-1 . 



5-107 January 1980 



THE PROCEDURE DIVISION 

USE 

5.9.42 USE 



Function 

The USE statement specifies procedures for error handling that are in 
addition to the standard procedures provided by the input-output 
control system. 

General Format 



USE AFTER STANDARD < nRRQR TI ° N } PROCEDURE ON / OUTPUT 

EXTEND 



USE BEFORE REPORTING identifier. 



file-name-1 OPEN Pfil e-name-2~| OPET 
INPUT 



Technical Notes 



USE statements may appear only in the Declaratives portion of 
the Procedure Division. The Declaratives portion follows 
immediately after the PROCEDURE DIVISION header and begins 
with the word 

DECLARATIVES. 

The Declaratives portion ends with the words 

END DECLARATIVES. 

Following this must be a section-header as the first entry of 
the main portion of the Procedure Division. 

The DECLARATIVES portion itself consists of USE sections, 
each consisting of a section-header, followed by a USE 
statement, followed by the associated procedure paragraphs. 
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The general format for the DECLARATIVES portion is given 
below. 

PROCEDURE DIVISION. 

DECLARATIVES. 



section-name-1 SECTION. USE 

paragraph-name-la. (statement) 
paragraph-name-lb. (statement)] 



section-name-2 SECTION. USE ] 



END DECLARATIVES, 
section-name-m SECTION. 

2. The USE statement may follow on the same line as the 
section-header and must be terminated by a period followed by 
a space. The remainder of the section must consist of one or 
more procedural paragraphs that define the procedures to be 
used . 

3. The USE statement itself is never executed, rather it defines 
the conditions calling for the execution of the USE 
procedures. 

4. Format 1 causes the designated procedures to be executed 
after completing the standard input-output error routine. 

5. There must not be any reference to any non-DECLARATIVES 
procedure within a USE procedure. Conversely, there must be 
no reference to procedure-names that appear within the 
DECLARATIVES portion in the non-DECLARATIVES portion, except 
that PERFORM statements may refer to a USE section or to a 
procedure contained entirely within such a USE section. 

6. No input/output can be performed other than ACCEPT and 
DISPLAY statements during execution of a USE procedure. 

7. Format 1 causes the associated procedures to be executed 
after the standard input-output error routine has been 
executed. If the INPUT option is used, the procedures will 
be executed for all INPUT files; if the OUTPUT option is 
used, they will be executed for all OUTPUT files; if the 1-0 
or the INPUT-OUTPUT option is used, they will be executed for 
all INPUT-OUTPUT files; if the filename-1 format is used, 
they will be executed only for that particular file. If more 
than one USE procedure could apply in a situation, only one 
will actually be executed. The procedure to be used will be 
the one which is most restrictive, that is, the one which 
applies most closely to the situation in question. For 
example, suppose you specify the file-name-1 option and the 
OPEN option, and you get an error when you attempt to open 
file-name-1. The procedure you specified for the file-name-1 
option will be executed, but the procedure for the OPEN 
option will not, because it is less restrictive. 
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If the filename-1 OPEN format is used, the system performs 
the associated procedures only if a "FILE BEING MODIFIED" 
error occurs when an attempt is made to open an output file. 
After performing the procedure, the system automatically 
tries again to open the file, repeating this process until 
the file is opened. This option allows you to suspend your 
job until it can access a file that another user is 
modifying . 

8. Identifier-1 in Format 2 represents a report group named in 
the Report Section of the Data Division. An identifier must 
not appear in more than one USE statement. The report group 
must not be TYPE DETAIL. 



5-110 



THE PROCEDURE DIVISION 



WRITE 



5.9.43 WRITE 

Function 

The WRITE statement transfers a logical record to an output file 

General Format 



WRITE record- name FROM identi fier-1 



D 



G 



fier-2 \ LINE 
ger f I LINES 



/ v i h'denti 

AFTER* ADVANCING ) linte 9 e 
( ) ) Imnemonic-narne) 

(PAGE ) 



»Q: 



rtT y END-OF-PAGE i . . . 

AT \c7)p / imperative-statement 



WRITE record-name FROM identifier 



■][■ 



INVALID KEY imperative-statement 



Technical Notes 



An OPEN OUTPUT, OPEN I-O, OPEN INPUT-OUTPUT or OPEN EXTEND 
statement must be executed for the file prior to the 
execution of the WRITE statement. SEQUENTIAL files and files 
with SEQUENTIAL ACCESS must be OPEN OUTPUT or OPEN EXTEND. 
OPEN EXTEND is valid only for SEQUENTIAL ORGANIZATION files. 

After the WRITE is executed, the data in record-name-1 may no 
longer be available. 

Record-name-1 must be the name of a logical record in a DATA 
RECORDS clause of the File Section of the Data Division. 

Format 1 is valid for any file currently open for output with 
ACCESS MODE IS SEQUENTIAL. The ADVANCING clause allows 
control of the vertical positioning of the paper form for 
print files as follows: 

a. If the ADVANCING clause is not specified and the 
recording mode is ASCII, BEFORE ADVANCING 1 LINE is 
assumed. 

b. If identifier-2 or integer-1 is specified, it must 
represent a positive integer or zero. The form is 
advanced the number of lines equal to the value of 
identifier-2 or integer-1. 
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c. If mnemonic-name is specified, the form is advanced until 
the specified channel is encountered on the paper-tape 
format control loop. Mnemonic-name must be defined by a 
CHANNEL clause in the SPECIAL-NAMES paragraph of the 
Environment Division. 

d. If the BEFORE option is used, the record is printed 
before the form positioning. 

e. If the AFTER option is used, the record is printed after 
form positioning occurs, and no form positioning takes 
place after the printing. 

If end-of-reel is encountered while writing on magtape, the 
WRITE statement performs the following operations: 

a. A file mark is written, and the tape is rewound. 

b. If the file was assigned to more than one tape unit, the 
units are advanced. 

c. If labels are not OMITTED, a label is written on the new 
tape . 

5. If the END-OF-PAGE phrase is specified, the LINAGE clause 
must be specified in the file description entry for the 
associated file. The words END-OF-PAGE and EOP are 
equivalent. 

6. The ADVANCING mnemonic-name phrase cannot be specified when 
writing a record to a file whose file description entry 
contains the LINAGE clause. 

7. The POSITIONING clause allows control of the vertical 
positioning of the paper form for print files. The record is 
written after the printer page is advanced according to the 
following rules: 

a. If identifier-2 is specified, it must be described as a 
one character alphanumeric item; that is, with PICTURE 
X. The valid values that identifier-2 can contain and 
their interpretations are as follows. 

blank Single spacing 
Double spacing 

Triple spacing 
+ Suppress spacing 
1-8 Skip to channels 1 through 8 respectively 

on the paper-tape format control loop 
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Note that the object-time system interprets the value in 
identif ier-2, substituting the proper positioning 
characters into the ASCII file. The character stored in 
the field named identifier-2 is not stored in the output 
file. 

b. If integer-1 is specified, it must be unsigned, and must 
be one of the values 0, 1, 2, or 3. The values have the 
following meanings. 

Skip to channel 1 of next page (carriage 
control "eject") 

1 Single spacing 

2 Double spacing 

3 Triple spacing 

8. Either ADVANCING or POSITIONING can be specified for a file, 
but not both. Also, if either is specified, the recording 
mode of the file will be ASCII, regardless of the recording 
mode specified in the RECORDING MODE clause. 

9. The INVALID KEY clause is illegal for SEQUENTIAL FILES. 

10. The INVALID KEY clause is executed if either of the following 
conditions exist: 

a. The RELATIVE or RECORD KEY indicates a record that 
exists. 

b. For INDEXED files with SEQUENTIAL ACCESS, the value of 
the RECORD KEY is not greater than the value of the 
RECORD KEY for the previous record. 

11. INDEXED files that have SEQUENTIAL ACCESS must be written 
with RECORD KEYS in ascending order. 

12. If a RELATIVE KEY is specified for a RELATIVE file with 
SEQUENTIAL ACCESS, the relative record number of the record 
just written is placed into the RELATIVE KEY data item. A 
RELATIVE file with SEQUENTIAL ACCESS is written sequentially 
starting with record number 1. 

13. When executing a WRITE statement for a SEQUENTIAL file opened 
for INPUT-OUTPUT, the logical record is placed on the file as 
the next logical record if the previous input-output 
operation was a WRITE, or it replaces the previous record if 
the previous input-output operation was a READ. 

14. The INVALID KEY phrase must be specified if an applicable USE 
procedure is not specified for the associated file. 

15. If the FROM option is used, the statement is equivalent to: 

MOVE identifier-1 TO record-name-1 

WRITE record-name-1 (without the FROM option) 

Note that identifier-1 must be a data-name and cannot be a 
figurative constant (for example, SPACES), because it is 
syntactically equivalent to a literal. 
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GENERAL FORMAT FOR PROCEDURE DIVISION 



PROCEDURE DIVISION USING data-name-1 [data-name-2j ... 



DECLARATIVES 



I section-name SECTION Fsegment-number"] . declarative-sentence 
paragraph-name. QentenceJ ... ... > ... 

] 



END DECLARATIVES, 



< section-name SECTION [segment-number - ] 
paragraph-name. Qentence]]] ... ... 1 
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ADD , } 



ACCEPT identifier-1 identifier-2 ... FROM mnemonic-name 

( DATE ) 
ACCEPT identifier FROM { DAT" > 

TIME J 

iu {iiS^r.r 1 [i^i-r 2 ] - ^^1^001^ 

identifier-n | ~ROUNDErJ j ... [~0N SIZE ERROR imperative-statement! 

identifier-1 I \ identifier-2 I identifier-3 
literal-1 I (literal-2 I literal-3 

GIVING identifier-m [ "ROUNDED" ] Mdenti fier-n [jpJJNDEpJl| 
TON SIZE ERROR imperative-statement"] 

ADD I CORRESPONDING I identiner .i T0 identifier-2 |jOUNDED~| 
TON SIZE ERROR imperative-statement] 

ALTER procedure-name-1 TO [PROCEED TO] procedure-name-2 
procedure-name-3 TO Q>R0CEED T0_] procedure-name-4 

ran ) n^n!]! 1 !^! ( USING data-name- 1 rdata-name-2~| ... 
CALL < program-name > I - l— —J | 

/ entry- name J ~ 
Ton OVERFLOW imperative-statementj 
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identi fier-1 
subprogram-1 



GENERAL FORMAT FOR VERBS 



identi fier-2 
subprogram-2 



CLOSE file-name-1 



'ireelC 

(UNIT) 



WITH < LOCK 



NO REWIND 



DELETE 



FOR REMOVAL 



file-name-2 



_ <REEL) 
(UNIT/ 



WITH 



NO REWIND 

LOCK 

DELETE 



CLOSE file-name-1 [WITH L0CK~| 



FOR REMOVAL 



file-name-2 WITH LOCK 



|~WITH LOCK~ | 



( identi fi er-2 . _ 

literal [ ROUNDED J 

( arithmetic-expression ) 



COMPUTE identi fier-1 [[ ROUNDED^ 

arithmetic-expression j"~ON SIZE ERROR imperative-statement"] 
1 



IS EQUAL TO 
EQUALS 



DELETE file-name RECORD QlNVALID KEY imperative-statement] 



DISPLAY 



identi fier-1 
1 iteral-1 



identi fier-2 
literal -2 



QjPON mnemonic- name] [ WITH NO ADVANCING] 
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DIVIDE 



identi fier-1 
literal-1 



GENERAL FORMAT FOR VERBS 



INTO identi fier-2 [ JOUNDEP] ] 



identifier-3 [jOUNDED~| ... Q ON SIZE ERROR imperative-statement]] 



DIVIDE ^ id + enti n fi r'M INTO ^ identifier-2 
literal-1 I ) literal-2 



GIVING identifier-3 QrOUNDEd] ] 



DIVIDE 



identi fier-4 [ ^ROUNDED ] 
identi fier-1 



DIVIDE 



literal-1 
identi fier-4 

identi fier-1 



BY 



|~~0N SIZE ERROR imperative-statement] 



identifier-2 f GIVING identifier-3 rR0UNDED~ | 
literal-2 t L_ iJ 



QrOUNDEd J ... [~0N SIZE ERROR imperative-statement] 



literal-1 



INTO 



literal-! 1 "" 2 I GIVING identifier-3 QrOUNDEd] ] 



REMAINDER identi fier-4 | ON SIZE ERROR imperative-statement] 



DIVIDE 



identi fier-1 
literal-1 



BY 



lUera(-2 r " 2 | GIVING identifier-3 [ "ROUNDED "! 



REMAINDER identi fier-4 [~ON SIZE ERROR imperative-statement] 



( MACRO ) 
ENTER { FORTRAN } 
COBOL 



( identi fier-1 ) 

USING { literal-1 > 

( procedure-name-1 J 



( identi fier-2 ) 

{ literal-2 [ 

( procedure-name-2 ) 



ENTRY 



entry-name USING identi fier-1 [jdenti fier-2] 



EXIT. 



EXIT [ PROGRAM^ ] 
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RECORD 



file-name-1 



KEY 



identifier-1 
literal-1 



EVERY RECORD 



FREE < 



,file-name-2 



RECORD 



KEY 



EVERY RECORD 



EVERY RECORD 



identifier-2 
literal-2 



[ NOT RETAINED statement-1 [,statement-2] . . . ] _^ 

GENERATE ( ^" 'Jl™* } 
( report-name ) 



GO TO procedure-name-1 Fprocedure-name-2"l 
DEPENDING ON identifier 



procedure-name-n 



GOBACK. 



., .... (statement-1 ) Tn cr i 

If conditnon ^ sentence} [— i 



statement-2 \\ 
NEXT SENTENCE ?! 



INITIATE report-name-1 [report-name-2] 
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INSPECT identifier-1 TALLYING 



;i*ntl«.^2 FORJ {jjL^ ^^""''"^iP INITIflL {m^Hr'S) 



INSPECT identifier-1 REPLACING 



cmbmiirs lv {ifs^ir 6 } B® initial {iiS™r.r 7 }] 



INSPECT identifier-1 TALLYING 



( (/ALL ) /identifier- 3))™ 

identi fier-2 FOR {( LEADING ? (literal-1 j J { 

(CHARACTERS )": 



BEFORE ) tmttta. /identi fier-4)~|) 
AFTEFf INITIAL iliteral-2 flj 



REPLACING 



runnnrTmc dv /i denti f i er-6) r/BEFORE) TMTTTn , (identi fier-7)1 
CHARACTERS BY | 1it era1-4 HfarTER~f INITIAL {literal-5 }J 

liTInTNrUi identifier - 5 l ry fi denti fi er-6) [( BEFORE ) tta (identi fier-7l"]| 

( FIRST ) (literal -3 J^tliteral-4 f [jArfEF/ INITIAL \literal-5 Jj 



MERGE 



WITH SEQUENCE CHECK 



file-name-1 ON 



ON 



ASCENDING 
DESCENDING 



ASCENDING 
DESCENDING 



KEY data-name-1 



KEY data-name-3 



data-name-2 



data-name-4 



[COLLATING SEQUENCE IS al phabet-name | 
USING file-name-2 file-name-3 file-name-4 



OUTPUT PROCEDURE IS section-name-1 



GIVING file-name-5 



THROUGH 
THRU 



section-name-2 



MOVE jidentifier-l TQ identi fier _ 2 
1 1 iteral 



identifier- 3 



( corresponding ! 

| CORR | 



M VE { CORRESPONDING } identifier -i TO identi fier-2 
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MULTIPLY ^terll-1 ( — identifier - 2 I ROUNDED 



[< 



identi fier-3 



ROUNDED ... ( 

{identifier- If RY jidentifier-2( 
literal-1 i — Vliteral-2 ( 



ON SIZE ERROR imperative-statement 



MULTIPLY llueral-r" 1 ! — linera^-^" ' GIVING identi fier-3 | ROUNDED 



identi fier-4 



ROUNDED 
ROUNDED ... ON SIZE ERROR imperative-statement 



0PEN< 



( INPUT \ 

\ outp ut ) 



file-name-1 



REVERSED 

with no rewind 



file-name-2 



REVERSED 

WITH NO REWIND 



1=0. 
INPUT-OUTPUT 



fi le-name-3 



FOR { 



I READ 

REWRITE 

WRITE 

DELETE 
1 ANY VERB J 



AND 



READ 
REWRITE 
WR IT E 
DELETE 
I ANY VERB J 



ALLOWING OTHERS > 



/ NONE 
READ 
REWRITE 



WRITE 



DELETE 



I ANY VERB ) 



/ NONE 
READ. 



AND - 



REWRITE 
WRITE 
DELETE 
\ ANY VERB 



file-name-4 



( READ 
REWRITE 



FOR 



WRITE 



DELETE 



{ ANY VE RB 



/ READ \ 




REWRITE 




AND • 


WRITE 
DELETE 


• 




, ANY VERB , 





ALLOWING OTHERS 



' NONE 
READ 
REWRITE 
WRITE 

DELETE 

ANY VERB 



AND- 


/ NONE 
READ 
REWRITE 


WRITE 
DELETE 
ANY VERB 



[EXTEND] file-name-5 [fil e-name-6] 



UNAVAILABLE statement-1 [statement-2] 



PERFORM procedure-name-1 < thru^ } Procedure-name-2 

PERFORM procedure-name-lR ™jj°j UGH } procedure-name-2 ] {integer-l^ 1 } TIMES 

PERFORM procedure-name-1 { TMRU UGH } P rocedure - name - 2 UNJik condition- 1 
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PERFORM procedure-name-1 {f|{j|p^ } procedure-name-2 



VARYING 



BY 



AFTER 



BY 



AFTER 



BY 



(identifier^ CDnM (1^1 fie 
u n A*„ «, m « 1} FROM <index-nam 
^ndex-name-lf (literal-l 



r-3 
me-2 



identi fier-4 
literal-3 



identi fier-5 
index-name-3 



identi fier-7 
literal-4 



identifier-8 
index-name-5 



identifier- 10 
literal -6 



UNTIL condition-1 



FROM 



{identi f 
index-n 
literal 



fier-6 
ame-4 
-3 



! 



UNTIL condition-2 



identi fier-9 
FROM index-name-6 
1 iteral-5 



UNTIL condition-3 



READ file-name 



[nEXt! RECORD F lNTO identi fieri 



AT END imperative-statement 

READ file-name RECORD f lNTO identifier J ^ INVALID KEY imperative-statement J 

READ file-name RECORD INTO identifier 

• QkEY IS data-name^] 

[ INVALID KEY imperative-statement 



RELEASE record-name FROM identifier 



D 



-] 
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RETAIN file-name- 1 RECORD 



■,r V j identifier-ll 
Jstl lliteral-1 I 



FOR 



READ 


{ 


' READ 


REWRITE 


\ 


i REWRITE 


READ-REWRITE 




\ READ-REWRITE 


DELETE 


AND <^ 


. DELETE 


WRITE 




I WRITE 


READ-WRITE 


1 


1 READ-WRITE 


ANY VERB 


1 


{ ANY VERB 



,file-name-2 RECORD 



FOR 



KEY 



READ 
REWRITE 
READ-REWRITE 
DELETE 



WRITE 

READ-WRITE 
ANY VERB 



AND 



identifier-2 
literal-2 



READ 



REWRITE 

READ-REWRITE 

DELETE 

WRITE 

READ-WRITE 

ANY VERB 



[ until freed ] 



[ until freed ] 



UNAVAILABLE statement-! [.statements] 



SEARCH identifier-1 VARYING { ]ndex-name-l } C AT MP. imperati ve-statement-l] 



WHEN condition-1 



/ imperative-statement-2 \ 
\ NEXT SENTENCE / 



Iiiucm ^Ji + i^ o J imperative-statement-3 \~\ 
|_WHEN condition-2 { NEXJ^ENJENCE /J — 



SEARCH ALL identifier-1 [[AT END imperati ve-statement-l] 

i ( tq rniiAi rn\ ( i denti fier-3 

jdata-name-1 \ IS E ^ T0 } ]literal-l 
WHEN | ( arithmetic-expression-1 

( condition-name-1 



AND 



data-na.e-2 /^ EQUAL TO) Hdentifier-4 j 

US = ) \ literal-2 , 

arithmeti c-expression-2J 



condition-name-2 



U 



mperati ve-statemen 
NEXT SENTENCE 



l " 2 } 
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SET / identifier- 1 _ identifier- 2 
\ index-name- 1 findex-name-2 

SET index-name-4 [j'ndex-name-5H 



{identi fier-3 
index-name-3- 
integer- 1 

I UP BY \ Hdentifier-4 \ 
\ DOWN BY ) (integer-2 / 






SORT file-name-1 ON { descendin g} KEY data-name-1 |_data-name-2 



G 



ON { descendin g} KEY data-name-3 [[data-name-4~] 



[[COLLATING SEQUENCE IS alphabet-name] 



INPUT PROCEDURE IS section-name-1 



USING file-name-2 [[file-name- 3] 



{tHRU^} section-name-2 



( OUTPUT PROCEDURE IS section-name-3 | j|]^ UGH | section-name-4 



( GIVING file-name-4 



START file-name 



KEY 



'IS EQUAL TO 

IS = 

IS GREATER THAN 

IS > 

IS NOT LESS THAN 

IS NOT < 



|_ INVALID KEY imperati ve-statementj 



STOP i m \ 
^^ l literal f 



data-name 



STRING 



identifier-1 
1 iteral-1 



identifier-2 
literal -2 



DELIMITED BY 



(identifi 
n i teral - 



-3 



SIZE 



identi fier-4 
literal -4 



identifier- 5 
1 iteral-5 



DELIMITED BY 



INTO identifier-7 [[wiTH POINTER identifier-8^ 
[[ON OVERFLOW imperative-statement] 



identi fier 
1 i teral -6 
SIZE 



.6) 
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SUBTRACT 



(identifier-l! identi 
|literal-l j litera 



fier-2 
ral-2 



SUBTRACT 



FROM identi fier-m f ROUNDEp ] 
dentifier-n [jROUNOEp] ... [ON SIZE ERROR imperative-statement] 

identifier-1 ( Mdenti fier-2 H PDnM iidenti fier-m I 

literal-1 i literal-2 •" iJM:L iliteral-m j 

GIVING identifier-n ["" rOUNPEp" ] identifier-o rROUNDEp "! ... 

ON SIZE error imperative-statement | 



SUBTRACT 



(corresponding 



S 



ORR 



! 



identifier-1 FROM identi fier-2 



[" rounded" ] 



[j)N SIZE ERROR imperati ve-statement] 
TERMINATE report-name- 1 rreport-name-2~] 



TRACE ;^, 



UNSTRING identifier-1 



DELIMITED BY 



DsyJ {i^r 2 } U M {inf.; 



fier-31 
jral-2 i 



INTO identifier-4 |~ PELIMITER IN identi fier-slf cOUNT IN identifier^"] 
identifier- 7 ^DELIMITER IN identi fier-s] TcOUNT IN identifier^"] 



[ 



3D 



WITH POINTER identi fier-10 TALLYING IN identi fier-11 



G 



Ton OVERFLOW imperative-statementH 
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ffile-name-1 OPEN^file-name-2]]oPEN 

^EXCEPTION I 1 INPUJ 

USE AFTER STANDARD ^^ \ PROCEDURE ON/ OUTPUT 






1-0 
EXTEND 



USE BEFORE REPORTING identifier. 



WRITE record-name FROM identifier-1 



D 



G 



v ( (identifier-2 I |~LI 

BEF 9 RE AnvANrTNrJ^ inte 9 er >L LI 



AFTER 



NE 
NES 



(mnemonic-name) 
1 PAGE I 



AT ^ eop"° F " PAGE ^ 1 'mP er a tive - statement 



WRITE record-name FROM identifier INVALID KEY imperative-statement 
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CHAPTER 6 
COMPILER COMMAND STRINGS 

The general form of the compiler command string is as follows: 

relf il ,lstf il= libfil/1, srcl ,src2, . . . 

where : 

relfil is the file that is to hold the generated code. 
If no generated code is desired, the file 
description for relfil is replaced by a hyphen. 

Example: -,lstf il=srcl ,src2. . . 

lstfil is the file that is to hold the generated listing. 
If no listing is desired, the file description for 
lstfil is replaced by a hyphen. 

Example: relf il ,-=srcl ,src2 , . . . 

libfil is the optional library file referenced by COPY 
verbs in the source files. 

srcl,src2 are one or more source files required to form one 
input program. 

Each file description has the following form: 

device :file.ext [project , prog rammer] /switch/switch 
where : 

device is the name of a physical or logical device. 
The name is composed of 6 or fewer letters 
* and/or digits. 

file is the name of a file. The name is composed 

of 6 or fewer letters and/or digits. 

ext is the filename extension. It is composed of 

3 or fewer letters and/or digits. 

project is a user's project number. 

programmer is a user's programmer number. 

switch is any of the switches shown in Table 6-1. 
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Users of TOPS-20 who wish to specify a directory other than 
the default may run the TRANSLATE program to determine the 
correct project-programmer number. (See the TOPS-20 User's 
Guide for information on how to do this.) For an alternative 
which is generally more useful, see Appendix E, Defining 
Logical Names under TOPS-20. 

Certain default assignments are made by the compiler whenever 
terms are omitted from the command strings or the file 
descriptions . 

1. If the device is omitted in any output file description, 
DSK is assumed. If the device is omitted in an input 
file description, either the preceding device or DSK (if 
no preceding device is specified) is assumed. 

2. If the filename for relfil and/or lstfil is omitted, the 
filename of the first source file is used. 

3. If the filename extension is omitted from relfil, .REL is 
assumed; if it is omitted from lstfil, . LST is assumed. 
If the extension is omitted from the source file 
descriptor, the compiler looks in the file area for the 
named file with the extension .COB. If that file is not 
found, the compiler looks for the named file with the 
extension .CBL. If that file is not found, the compiler 
looks for the named file without an extension. If the 
extension is omitted from the library file description, 
.LIB is assumed. 

4. If the [project , programmer ] option is omitted on any 
file, the user's default path is used. On TOPS-20, the 
connected directory is used. 

Examples: 

MTA1 : RELOUT . A/W , LPT : =DSK : SRC IN . C [27,36] /M/S 

The compiler compiles the program found in the file SRCIN.C 
in the area reserved for project-programmer 27,36. It treats 
columns 1-6 of the source as a sequence number (/S) . The 
generated code is written on MTA1 , after the tape is rewound 
(/W) . The listing, including maps (/M) is put on the LPT. 

=LIB1/L, PROG/A 

The compiler compiles the program found in PROG. CBL (CBL is 
assumed because the filename extension is omitted from the 
source file descriptor) on the disk, using LIB1.LIB whenever 
a COPY verb is seen (/L) . The generated code goes into the 
file DSK:PROG.REL, and the listing onto the file 
DSK:PROG.LST. The generated code is listed (/A). 

-=LIB1/L, PROG/A 

This is identical to the preceding example, with the 
exception that no generated code is produced because the file 
descriptor for the file has been replaced by a hyphen. 
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Table 6-1 
COBOL Switch Summary 



Switch 


Action by Compiler 






A 


List the machine code generated in the lstfil. 


B 


Generate code for all DEBUG lines (those with /D 




in col. 7) which otherwise would be treated as 




comments. 


C 


Produce a cross-reference table of all 




user-defined symbols. 


D:nnnnnn 


Increment, in octal words, to be added to the 




object time push down list size. 


E 


Check program for errors, but do not generate 




code . 


H 


Type description of COBOL-74 command strings and 




switches. 


I 


Suppress output of start address (program is to 




be used only by CALL'S). 


J 


Force output of start address in spite of the 




presence of subprogram syntax. 


L 


Use the preceding source file as a library file 




whenever a copy verb is encountered. If the 




first source file is not a /L file, LIBARY.LIB 




is used as the library file until the first /L 




file is encountered. (The default extension for 




library files is ".LIB".) 


M 


Include a map of the user defined items in the 




lstfil. 


N 


Do not type compilation errors on the user's 




terminal . 





Optimize the object code. 


P 


Production mode. Omit debugging features from 




relfil. 


Q 


Quick mode. Do .not range check PERFORMS, also 




turn on /O and /P. 


R 


Produce a two-segment object program. The high 




segment will contain the procedure division; 




the low segment all else. 


S 


The source file is in "conventional" format 




(with sequence numbers in cols. 1-6 and 




comments starting in col. 73). 


U 


Produce a one-segment object program. 
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Table 6-1 (Cont.) 
COBOL Switch Summary 



Switch 


Action by Compiler 






W 
X 

Y 

Z 


Rewind the device before reading or writing 
(magtape only) . 

Give a usage of DISPLAY-9 to items whose usage 
is either omitted or declared as DISPLAY. 

Flag DIGITAL extensions to ANS-74 standard. 

Zero the directory of the device before writing 
(DECtape only) . 
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COBOL-74 UTILITY PROGRAMS 



COBOL-74 provides several utility programs that allow you to perform 
certain operations within your COBOL program. These utility programs 
are : 

• ISAM - Indexed-Sequential File Maintenance Program 

ISAM provides you with the ability to create and 
maintain indexed-sequential files (see section 7.1). 

• LIBARY - Source Library Maintenance Program 

LIBARY provides you with the facility to create, 
modify, and delete statements or groups of statements 
in a library file (See Section 7.2). 

• COBDDT - Program For Debugging COBOL Programs 

COBDDT provides you with the ability to: 

1. Look for areas of error by setting breakpoints 

2. Trace the activity of procedures 

3. Display and, if necessary, change the contents of 
data-items 

4. Determine time spent in sections of the program 
by analyzing a histogram (see Section 7.3) 

• RERUN - Program to Restart COBOL-74 Programs 

RERUN provides you with the ability to restart a 
COBOL-74 program after an abnormal termination has 
occurred (See Section 7.4). 
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NOTE 

Many of the examples in this chapter are 
written for only one operating system - 
that is, they have either the TOPS-10 
prompt (.) or the TOPS-20 prompt (@) 
alone. However, unless you are told 
otherwise, the examples apply to both 
TOPS-10 and TOPS-20. Thus, in this 
chapter you may substitute 

.R (program name)<RET> 
for 

@ (program name)<RET> 

and vice versa. 



7.1 ISAM - INDEXED-SEQUENTIAL FILE MAINTENANCE PROGRAM 

Indexed-sequential files are created, maintained, and compacted for 
backup storage by means of the ISAM program. ISAM performs the 
following functions: 

1. Builds an indexed-sequential file from a sequential file 

2. Maintains ari indexed-sequential file by reorganizing it 

3. Packs an indexed-sequential file into a sequential file for 
backup storage 

ISAM has the following switches which you may use to perform these 
functions : 

B Build an indexed file from a sequential one 

I Ignore errors in packing a file (this switch may only be used 
with the P switch) 

L Read or write standard tape labels (this switch may only be 
used with the B or P switches) 

M Maintain your indexed file by reorganizing it 

P Pack your indexed file for backup storage 

Figure 7-1 shows the COBOL-74 ISAM File Environment. 
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(INPUT SEQUENTIAL 
DATA FILE) 







BAKFIL | (OUTPUT SEQUENTIAL 
.SEQ / BACKUP FILE) 



MR-S-029-79 



Figure 7-1 COBOL-74 ISAM File Environment 
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7.1.1 Building an Indexed-Sequential File 

To build an indexed-sequential file you must provide a sequential file 
in which the record keys are arranged in ascending order. The ISAM 
program will use this file to create an indexed-sequential data file 
with a user-specified number of empty records and blocks. ISAM then 
creates the index file according to the description of the data file. 

To run the ISAM program and select the option for building the 
indexed-sequential file, type the following: 

.R ISAM<RET> for users of TOPS-10 

or 

@ISAM % <RET> for users of TOPS-20 

*devl:indf il.ext [ppnl] ,dev2:datf il . ext=dev3 :seqf il .ext [ppn2]/B 

where : 

devl, dev2, and dev3 are the devices for the index, data, and 
input sequential file. Devi and dev2 must be disk. The default 
for devl, dev2, and dev3 is DSK. 

indf il.ext is the name and extension of the index file. If the 
filename is not specified, the name of the input file is assumed. 
If the extension is omitted, . IDX is assumed. 

datf il.ext is the name and extension of the data file. If the 
filename is omitted, the name of the index file is assumed. If 
the extension is omitted, .IDA is assumed. 

seqfil.ext is the name and extension of the input sequential 
file. This filename must be specified, but the extension can be 
omitted. If it is omitted, .SEQ is assumed. 

[ppnl] , [ppn2] specify directories for the index file and the 
input file, respectively. If either is omitted, then the 
directory of the logged-in user is assumed. The data file must 
reside in the same directory as the index file. Users of TOPS-20 
who wish to specify a directory other than the default may run 
the TRANSLATE program to determine the correct project-programmer 
number. (See the TOPS-20 User's Guide for information on how to 
do this.) For an alternative which is generally more useful, see 
Appendix E, Defining Logical Names under TOPS-20. 

/B is the switch signifying that ISAM will be used to build an 
indexed-sequential file. If the switch is omitted from the 
command string, /B is assumed. The equal sign (=) can be omitted 
if the specifications for the output files are omitted. 

After reading the command string, ISAM asks a series of questions, 
which are described below. Every question must be answered. 

MODE OF INPUT FILE: 

Reply with S, A, F, V, or ST according to the mode of the input file. 
S means SIXBIT, A means ASCII, F means fixed-length EBCDIC, V means 
variable-length EBCDIC, and ST means STANDARD-ASCII. 
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MODE OF DATA FILE: 

Specify S, A, F, or V according to the mode in which the ISAM data 
file is to be recorded. S means SIXBIT, A means ASCII, and both F and 
V mean EBCDIC, as above. If the mode of the input file differs from 
that of the data file, characters will be converted in the same manner 
as they are converted in standard COBOL-74 operations. 

MAXIMUM RECORD SIZE: 

Specify the size of the largest record in the input file in bytes. 
For ASCII records you should not count the carriage return and line 
feed that are appended to each ASCII record. 

KEY DESCRIPTOR: 

Describe the key upon which the file is to be indexed using a code 
that has the form: 

[s] [x]m.n 

where : 

s designates the sign of the key: 

S - the key is signed 

U - the key is unsigned 
x indicates the key type: 

X - the key is nonnumeric 

N - the key is numeric display 

C - the key is COMPUTATIONAL 

F - the key is COMPUTATIONAL-1 

P - the key is COMPUTATIONAL-3 

m specifies the number of the character in the record where the 
key begins. 

n specifies the size of the key in characters for types X and N 
or in digits for types C and P. If n is less than or equal to 
10 for type C, one word is used. If n is greater than 10, two 
words are used. n is ignored for type F because it is always 
one word long. 

The following rules apply to the key descriptor; 

1. The key type is optional: if S or U are specified the 
default is N. Otherwise, the default is X. 

2. The key sign is optional; the default is S if the key type 
is not X. 

3. The sign designators S or U cannot be specified in 
conjunction with type X. 

4. m and n must be specified. 
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RECORDS PER INPUT BLOCK: 

Give the blocking factor of the input file. If the file is unblocked, 
should be specified. 

TOTAL RECORDS PER DATA BLOCK: 

Give the total number of records to be contained in each block of the 
data file. 

EMPTY RECORDS PER DATA BLOCK: 

Specify the number of records that are to be initially left empty in 
each block of the data file. 

TOTAL ENTRIES PER INDEX BLOCK: 

Specify the total number of index entries to be contained in each 
block of the index file. 

EMPTY ENTRIES PER INDEX BLOCK: 

Specify the number of index entries that are to be initially left 
empty in each index block. Note that at least two entries must be 
available in each index block, so that the number of total entries 
minus the number of empty entries must equal or exceed two. 

PERCENTAGE OF DATA FILE TO LEAVE EMPTY: 

Give, as a percentage of the total number of blocks, the number of 
blocks to be initially left empty in the data file. 

PERCENTAGE OF INDEX FILE TO LEAVE EMPTY: 

Give, as a percentage of the total number of blocks, the number of 
blocks to be initially left empty in the index file. 

MAXIMUM NUMBER OF RECORDS FILE CAN BECOME: 

Reply with the maximum number of records that the data file can 
possess before the file is next maintained. This number sets the 
upper limit of the size of the data file. It is required because 
storage allocation tables must be set up in the index when the file is 
created. There is no harm in making this number excessively large 
because the index data blocks are allocated in the storage allocation 
tables, but not actually assigned until needed. 

Example - Building an indexed-sequential file 

.R ISAM 

*TEST.IDX, TEST.IDA=TEST.SEQ /B 
MODE OF INPUT FILE: SIXBIT 
MODE OF DATA FILE: SIXBIT 
MAXIMUM RECORD SIZE: 40 
KEY DESCRIPTOR: SN37.4 

(The key is signed numeric display; it begins in the 
thirty-seventh byte; and it is four bytes long.) 
RECORDS PER INPUT BLOCK: 3 
TOTAL RECORDS PER DATA BLOCK: 2 
EMPTY RECORDS PER DATA BLOCK: 1 
TOTAL ENTRIES PER INDEX BLOCK: 3 
EMPTY ENTRIES PER INDEX BLOCK: 1 
PERCENTAGE OF DATA FILE TO LEAVE EMPTY: 60 
PERCENTAGE OF INDEX FILE TO LEAVE EMPTY: 10 
MAXIMUM NUMBER OF RECORDS FILE CAN BECOME: 12000 
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7.1.2 Maintaining an Indexed-Sequentfal File 

The ISAM program allows you to maintain an existing ISAM file after 
the file has become crowded. More empty space may be added to the 
file and the number of index levels may be decreased. That is, the 
files are rearranged and indexes are streamlined. The input is the 
indexed-sequential file and the output is a new indexed-sequential 
data and index file. The command string for the ISAM maintain option 
is as follows: 

.R ISAM<RET> for users of TOPS-10 

or 

@ISAM<RET> for users of TOPS-20 

*devl:indf il.ext [ppnl] ,dev2:datf il .ext = inf il .ext [ppn2] /M<RET> 

where: 

devl, and dev2, are disk devices on which the files are stored. 
If any of the devices is omitted, DSK is assumed. 

indfil.ext is the name and extension of the new index file. If 
the name is omitted, the name of the input file is assumed. If 
the extension is omitted, . IDX is assumed. 

datfil.ext is the name and extension of the new data file. If 
the name, is omitted, the name of the new index file is assumed. 
If the extension is omitted, .IDA is assumed. 

infil.ext is the name and extension of the index file of the old 
indexed-sequential file. The name of the file must be specified, 
but the extension can be omitted. No extension is assumed if the 
extension is omitted. 

[ppnl] , [ppn2] specify directories for the new index file and the 
old index file, respectively. If either is omitted, the 
directory of the logged-in user is assumed. The new data file 
must reside in the same directory as the new index file. Users 
of TOPS-20 who wish to specify a directory other than the default 
may run the TRANSLATE program to determine the correct 
project-programmer number. (See the TOPS-20 User's Guide for 
information on how to do this.) For an alternative which is 
generally more useful, see Appendix E, Defining Logical Names 
under TOPS-20. 

/M is the switch indicating that the maintain option is being 
requested. The switch must be specified. 

If the output file specifications are not included in the command 
string, the equal sign (=) can be omitted. 

After the command string has been scanned, ISAM asks a series of 
questions about values for the new indexed-sequential file. The mode 
of the file, the record size, and the key cannot be changed. The 
values from the old file are given in parentheses with the question. 
If you wish to change a value, enter the new value; if you do not 
wish to change a value, press the RETURN key. All questions refer to 
the output file. 
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TOTAL RECORDS PER DATA BLOCK (n) : 

Specify the total number of records to be contained in each block of 
the data file. 

EMPTY RECORDS PER DATA BLOCK (n) : 

Give the number of data records that are to be initially left empty in 
each data block. 

TOTAL ENTRIES PER INDEX BLOCK (n) : 

Give the total number of index entries to be contained in each block 
of the index file. 

EMPTY ENTRIES PER INDEX BLOCK (n) : 

Specify the number of index entries that are to be initially left 
empty in each index block. 

PERCENTAGE OF DATA FILE TO LEAVE EMPTY (n) : 

Give, as a percentage of the total number of blocks, the number of 
blocks to be initially left empty in the data file. 

PERCENTAGE OF INDEX FILE TO LEAVE EMPTY (n) : 

Give, as a percentage of the total number of blocks, the number of 
blocks to be initially left empty in the index file. 

MAXIMUM NUMBER OF RECORD FILES CAN BECOME (n) : 

Specify the maximum number of records that can be contained in the 
file. This number sets the upper limit on the size of the data file. 
It is required because storage allocation tables must be set up when 
the file is created. 

Example - Maintaining an indexed-sequential file 

.R ISAM<RET> 

*test.idx, test . ida=test /m 
total records per data block (2) : 
empty records per data block (1) : 
total entries per index block (3) : 32 
empty entries per index block (1) : 10 
percentage of data file to leave empty (60) : 50 
percentage of index file to leave empty (10) : 40 
maximum number of records file can become (12000) 25000 
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7.1.3 Packing an Indexed-Sequential File 

Packing an indexed-sequential file is the reverse of building one. An 
indexed-sequential file is copied into a sequential file in the order 
specified by the index. This option is used primarily to compact an 
indexed-sequential file for backup storage, although the resulting 
sequential file can be treated as any other sequential file. The 
command string for the packing option of ISAM is as follows: 

.R ISAM<RET> for users of TOPS-10 

or 

@ISAM<RET> for users of TOPS-20 

*devl:seqfil.ext [ppnl] =dev2 : indf il ,ext [ppn2] /P<RET> 

where : 

devl and dev2 are the devices on which the sequential file is to 
be stored and the index file resides, respectively. The input 
file must be on disk. If neither device is specified, DSK is 
assumed. 

seqfil.ext is the name and extension of the output sequential 
file. If the name is omitted, the name of the input file is 
assumed. If the extension is omitted, .SEQ is assumed. 

indfil.ext is the name and extension of the index file of the 
indexed-sequential file. The name must be specified, but the 
extension can be omitted. If the extension is omitted, no 
extension is assumed. 

[ppnl] [ppn2] are directories for the new sequential file and the 
old index file, respectively. If either is omitted, the 
directory of the logged-in user is assumed. Users of TOPS-20 who 
wish to specify a directory other than the default may run the 
TRANSLATE program to determine the correct project-programmer 
number. (See the TOPS-20 User's Guide for information on how to 
do this.) For an alternative which is generally more useful, see 
Appendix E, Defining Logical Names under TOPS-20. 

/P is the switch signifying that the packing option is being 
requested. It must be included. 

If the output file specification is omitted, the equal sign ( = ) can be 
omitted . 

After the command string has been processed, ISAM asks the following 
questions. 

MODE OF THE OUTPUT FILE: 

Specify SIXBIT (or S) , ASCII (or A), F, V, or ST according to the mode 
in which the sequential file is to be recorded. V is variable-length 
EBCDIC, and F is fixed-length EBCDIC, and ST is STANDARD-ASCII. 

RECORDS PER OUTPUT BLOCK: 

Give the blocking factor that you want for the sequential file (i.e., 
the number of records per logical block) . If the file is to be 
unblocked, the user answers 0. 
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Example - Packing an indexed-sequential file 

.R ISAM 

*MTA2:TEST.SEQ=TEST.IDX /P 
MODE OF THE OUTPUT FILE: SIXBIT 
RECORDS PER OUTPUT BLOCK: 



7.1.4 Ignoring Errors 

When packing an indexed-sequential file into a sequential file, you 
can include the /I switch in the command string to force ISAM to 
ignore certain fatal errors. This switch causes ISAM to try to 
recover as much data as possible from a damaged indexed-sequential 
file. 

Including the /I switch in the command string to ISAM causes the 
program to make nonfatal those errors that concern duplicate keys or 
keys out of order. The messages for these errors are preceded by a 
percent sign (%) rather than a question mark (?) so that ISAM will 
continue the packing operation. The /I switch can be used only with 
the /P switch. It cannot be used alone. 

The command string when using the /I and /P switches is as follows: 

.R ISAM<RET> for users of TOPS-10 
or 

@ISAM<RET> for users of TOPS-20 

*devl:seqf il.ext [ppnl] =dev2 : indf il . ext [ppn2] /P/KRET> 

where : 

devl and dev2 are the devices on which the sequential and index 
files reside, respectively. The input file must be on disk. If 
neither device is specified, DSK is assumed. 

seqfil.ext is the name and extension of the output sequential 
file. If the name is omitted, the name of the input file is 
assumed. If the extension is omitted, ,SEQ is assumed. 

indf il.ext is the name and extension of the index file of the 

indexed-sequential file. The name must be specified, but the 

extension can be omitted. If the extension is omitted, no 
extension is assumed. 

[ppnl] , [ppn2] are directories for the new sequential file and 
the old index file, respectively. If either is omitted, the 
directory of the logged-in user is assumed. Users of TOPS-20 who 
wish to specify a directory other than the default may run the 
TRANSLATE program to determine the correct project-programmer 
number. (See the TOPS-20 User's Guide for information on how to 
do this.) For an alternative which is generally more useful, see 
Appendix E, Defining Logical Names under TOPS-20. 
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/P is the switch signifying that the packing option is being 
requested. It must be included. 

/I is the switch signifying that some fatal errors are to be 
ignored. It may be included only with the /P switch. 

The equal sign (=) can be omitted if the output file 
specification is omitted. 



7.1.5 Reading and Writing Magnetic Tape Labels 

When building or packing an indexed-sequential file, you can include 
the /L switch to cause ISAM to read or write labels on magnetic tape. 
The /L switch, when used with the /B switch, causes ISAM to read 
COBOL-74 standard tape labels on the input magnetic tape. When used 
with the /P switch, the /L switch causes ISAM to write standard tape 
labels on the output magnetic tape. The /L switch can only be used on 
magnetic tape files whose recording mode is not F or V, 

The command string when using the /L switch with the /B switch is as 
follows : 

.R ISAM<RET> for users of TOPS-10 

or 

@ISAM<RET> for users of TOPS-20 

*devl:indfil.ext [ppn] ,dev2:datf il .ext^MTAn: seqf il .ext/B/L<RET> 

where : 

devl, dev2, and MTAn are the devices for the index, data, and 
input sequential file, Devi and dev2 must be disk devices. The 
default disk for devl and dev2 is DSK. 

indfil.ext is the name and extension of the index file. If the 
filename is not specified, the name of the input file is assumed. 
If the extension is omitted, . IDX is assumed. 

datfil.ext is the name and extension of the data file. If the 
filename is omitted, the name of the index file is assumed. If 
the extension is omitted, .IDA is assumed. 

seqfil.ext is the name and extension of the input sequential 
file. This filename must be specified, but the extension can be 
omitted. If it is omitted, .SEQ is assumed. 

[ppn] specifies the directory for the index file. If it is 
omitted, the directory of the logged-in user is assumed. The 
data file must reside in the same directory as the index file. 
Users of TOPS-20 who wish to specify a directory other than the 
default may run the TRANSLATE program to determine the correct 
project-programmer number. (See the TOPS-20 User's Guide for 
information on how to do this.) For an alternative which is 
generally more useful, see Appendix E, Defining Logical Names 
under TOPS-20. 

/B is the switch signifying that ISAM will be used to build an 
indexed-sequential file. If the switch is omitted from the 
command string, /B is assumed. 
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/L is the switch signifying that ISAM will read standard tape 
labels. It must be included. 

The equal sign ( = ) can be omitted if the file specifications for the 
output files are also omitted. 

The command string when using the /L switch with the /P switch is as 
follows : 

,R ISAM<RET> for users of TOPS-10 

or 

@ISAM<RET> for users of TOPS-20 

*MTAn:seqfil.ext=devl:indfil.ext [ppn]/P/L<RET> 

where : 

MTAn: and devl are the devices on which the sequential file is 
to be stored and the index file resides, respectively. The input 
file must be on disk. If the name of devl is not specified, DSK 
is assumed. 

seqfil.ext is the name and extension of the output sequential 
file. The name and extension can both be omitted because 
filenames are not used on magnetic tape. 

indfil.ext is the name and extension of the index file of the 

indexed-sequential file. The name must be specified, but the 

extension can be omitted. If the extension is omitted, no 
extension is assumed. 

[ppn] is a directory for the old index file. If it is omitted, 
the directory of the logged-in user is assumed. Users of TOPS-20 
who wish to specify a directory other than the default may run 
the TRANSLATE program to determine the correct project-programmer 
number. (See the TOPS-20 User's Guide for information on how to 
do this.) For an alternative which is generally more useful, see 
Appendix E, Defining Logical Names under TOPS-20. 

/P is the switch signifying that the packing option is being 
requested. It must be included. 

/L is the switch signifying that ISAM will write standard tape 
labels. It must be included. 



7.1.6 Indirect Commands 

The ISAM program accepts command strings and dialogue responses from 
indirect command files. 

The command string to direct ISAM to read an indirect command file is: 

.R ISAM<RET> for users of TOPS-10 

or 

@I"SAM<RET> for users of TOPS-20 

*@dev:cmdf il.ext [ppn] <RET> 
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where: 

@ indicates that this is an indirect command file. 

dev is the device on which the command file is stored. If it is 
omitted, DSK is assumed. 

cmdfil.ext is the name and extension of the command file. The 
name must be specified. If you omit the extension, .CMD is 
assumed. 

[ppn] is the directory in which the command file is stored. If 
it is omitted, the directory of the logged-in user is assumed. 
Users of TOPS-20 who wish to specify a directory other than the 
default may run the TRANSLATE program to determine the correct 
project-programmer number. (See the TOPS-20 User's Guide for 
information on how to do this.) For an alternative which is 
generally more useful, see Appendix E, Defining Logical Names 
under TOPS-20. 

After ISAM reads the command string, it reads the command file and 
performs the processing specified within it. The command file must 
contain the complete command string and all dialogue responses for a 
single ISAM operation exactly as they would be typed if you were 
giving them directly to the ISAM program. Nothing else can be present 
in the command file. 



7.1.7 Using Indexed-Sequential Files 

Indexed-sequential files can be read and written, and individual 
records within them can be rewritten or deleted. You can perform any 
actions on the records in an indexed-sequential file by specifying the 
desired record key in the RECORD KEY field. To use an 
indexed-sequential file, the following statements are employed: 

ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

1. SELECT ISAM-FILE ASSIGN TO DSK 

2. ORGANIZATION IS INDEXED 

3. ACCESS MODE IS DYNAMIC 

4. RECORD KEY IS ISAM-RECORD-KEY. 



DATA DIVISION. 
FILE SECTION. 
FD ISAM-FILE 

5. BLOCK CONTAINS 13 RECORDS 

6. VALUE OF IDENTIFICATION IS " ISAMFLIDX" 
01 ISAM-RECORD. 

02 FILLER PIC X(12) . 
4. 02 ISAM-RECORD-KEY PIC X(3). 
02 FILLER PIC X(75) . 



PROCEDURE DIVISION. 
BEGIN. 

OPEN INPUT-OUTPUT ISAM-FILE. 
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7. 



READ ISAM-FILE, INVALID KEY GO TO ERRPROC 



8. 



WRITE ISAM-RECORD, INVALID KEY GO TO ERRPROC. 



9. 



DELETE ISAM-RECORD, INVALID KEY GO TO ERRPROC. 



10. REWRITE ISAM-RECORD, INVALID KEY GO TO ERRPROC. 

11. READ ISAM-FILE NEXT RECORD, INVALID KEY GO TO ENDFILE. 

The notes in the following list are keyed to the numbers to the left 
of the lines in the preceding program. 

1. The indexed-sequential file must reside on disk. 

2. The ORGANIZATION clause is required. 

3. The ACCESS MODE clause is required if you wish to access the 
file in random fashion, since the ACCESS MODE defaults to 
sequential. When DYNAMIC is specified, as here, either 
random or sequential access may take place. 

4. The RECORD KEY clause is required in the Environment Division 
and refers to the data-item designated as the record key 
which appears in the Data Division within the FD area record 
description for the indexed-sequential file. 

5. An indexed-sequential file must be blocked. 

6. The VALUE OF IDENTIFICATION clause is required. It 
designates the filename and extension of the index file 
rather than that of the data file. The name of the related 
data file is stored within the index file. The VALUE OF 
IDENTIFICATION must be specified because the name of the file 
must be present at initialization time so that the buffer and 
storage space can be allocated. 

7. The READ statement reads the indexed-sequential file to find 
the record whose key as written on the file matches the 
record key. If no match is found, the INVALID KEY path is 
taken . 

8. The WRITE statement writes the record that has a key that 
matches the record key. If the record whose key matches the 
record key is already in the file, the INVALID KEY path is 
taken. 

9. The DELETE statement causes a search to be made of the file 
to find the record whose key matches the record key. When 
the record is found, it is deleted. If the record is not 
found, the INVALID KEY path is taken. 

10. The REWRITE statement causes searching of the file to find 
the record whose key matches the record key. When the record 
is found, it is replaced with the contents of the record 
specified in the REWRITE statement. If the record is not 
found in the file, the INVALID KEY path is taken. 
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11. This shows the method used to read an indexed-sequential file 
sequentially. When the READ statement is executed, the 
record accessed is the first record whose record key has a 
value higher than the last record processed by a READ, WRITE, 
REWRITE or DELETE statement. If the file has been opened but 
no READ, WRITE, DELETE or REWRITE statement has been 
executed, the first record of the file is read. 



7.2 LIBARY - SOURCE LIBRARY MAINTENANCE PROGRAM 

LIBARY provides a facility for creating or maintaining COBOL library 
files on disk or DECtape (TOPS-10 only) . Library files contain COBOL 
source-language text organized into statement groups. Specifically, 
the LIBARY program has the capability of adding source-language text 
to the library file, replacing and/or deleting lines or whole 
statement groups, and providing a listing of the file. It allows you 
to specify those data descriptions or procedures used in many programs 
and to place them in a common file for use by the COBOL compiler. The 
statement groups in the library file are included in a COBOL program 
through the use of the COPY verb. (See Part 2, Section 1.4, for 
information on the COPY verb.) 



7.2.1 Library File Format 

A library file is a collection of COBOL source-language statement 
groups, each identified by a unique 1- to 8-character library-name. 
The library file must be on a directory device. Each statement group 
is a set of ordinary COBOL language statements conforming to the use 
of the COPY verb. The statement groups are kept in alphabetic order 
according to their library names. The maximum number of statement 
groups that can appear in a library is 3869. 

The library file is in a binary format that is recognizable only by 
LIBARY and the COBOL compiler. You, however, need not concern 
yourself with the format of the actual entries in the file. You enter 
them as ASCII text; LIBARY stores them in the appropriate format 
automatically. 



7.2.2 Invoking The Library Utility 

To invoke the library utility program, enter R LIBARY in response to 
the TOPS-10 prompt (.) or LIBARY in response to the TOPS-20 prompt 
(@) . That is, 

.R LIBARY<RET> for users of TOPS-10 

or 

@LIBARY<RET> for users of TOPS-20 
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When LIBARY is ready to process commands, it issues an asterisk 
prompting character and waits for you to enter a file specification 
command line. The file specification command line identifies the 
library files being either created or used as input. It also 
identifies the listing file if a listing is required. Enter the file 
specification command line according to the following format: 

♦output-library, list ing=input-library<RET> 
where : 

output-library - is the file specification for the library file 
being generated. 

listing - is the file specification for the file that is 
to receive the output listing. 

input-library - is the file specification for the library file 
being used as input. 

Each file specification has the following format: 

dev: filename. ext [ppn]/sw 

where : 

dev: - is the logical device name for the unit on which 

the desired file is mounted. The default 
assignment is DSK:. 

filename - is the name of the file consisting of from one 
to six SIXBIT characters. Filename must be 
specified for at least one library file. 

.ext - is the filename extension consisting of a period 

followed by zero to three characters. It is 
used to indicate the type of information in the 
file. 

[ppn] - is the directory area in which the file is 

stored. The directory specification, enclosed 
in brackets, contains the project-programmer 
number of the file's owner. Users of TOPS-20 
who wish to specify a directory other than the 
default may run the TRANSLATE program to 
determine the correct project-programmer number. 
(See the TOPS-20 User's Guide for information on 
how to do this.) For an alternative which is 
generally more useful, see Appendix E, Defining 
Logical Names under TOPS-20. 

/sw - is one ASCII character preceded by a slash 

specifying a LIBARY switch option. (See Section 
7.2.4, LIBARY Switches.) 

After you have invoked LIBARY and given it a file specification 
command line, it automatically creates a scratch file to contain the 
output file generated by the LIBARY run. When you are through working 
on your library file and enter the END command (See Section 7.2.6.4, 
LIBARY Directing Commands) , LIBARY renames the scratch file with the 
proper output name (after any necessary renaming of the input file) . 
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If an error occurs causing the execution of LIBARY to be aborted , the 
input file, if specified, will be unchanged and the scratch file will 
be deleted. If the error occurred after the input file has been 
renamed, the original input file has an extension of .BAK. 



7.2.3 Command String Defaults 

The following default values are assumed by LIBARY if any part of any 
file specification is omitted. 

1. If any device is not specified, DSK is assumed. 

2. If the file specification for the listing file is omitted, no 
listing will be produced. 

3. If the name of the listing file is omitted, the name of the 
input file is assumed. 

4. If the extension of the listing file is omitted, . LST is 
assumed. 

5. If the file specification for the output file is omitted, it 
is assumed that there is no output file to be produced. 

NOTE 

If you are omitting the output file because you want 
to run LIBARY to obtain a listing only, the listing 
file specification, the input file specification, and 
the /L switch must be specified. 

6. If the name of the output file is omitted, the name of the 
input file is assumed. 

7. If the extension of the output file is omitted, .LIB is 
assumed. 

8. If the file specification of the input file is omitted, it is 
assumed that there is no input file and that a library is 
being created. Thus, only commands for insertion can be 
used. 

9. The filename "for the input file cannot be omitted if the file 
specification is present. 

10. If the extension of the input file is omitted, .LIB is 
assumed. 

11. If any project-programmer number is omitted, it is assumed to 
be that of the logged-in user. Users of TOPS-20 who wish to 
specify a directory other than the default may run the 
TRANSLATE program to determine the correct project-programmer 
number. (See the TOPS-20 User's Guide for information on how 
to do this.) For an alternative which is generally more 
useful, see Appendix E, Defining Logical Names under TOPS-20. 

12. If the input and output files have the same name and 
extension, and are both on disk, the extension of the input 
file is changed to .BAK at the completion of the operation. 
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7.2.4 LIBARY Switches 

The following switches can be included in the command string to 
LIBARY. 

/D - List on the user terminal all of the library-names contained 
on the input library file. 

/H - List on the user terminal all of the commands available with 
LIBARY. 

/L - Create only a listing file of the entire input library. The 
output file specification must be omitted. 

/S - Put the input statement group into conventional format. 

/W - Rewind (for magnetic tape only) . 

/Z - Clear an output directory (for DECtape only) . 




LIBARY is organized so that you can optionally create new library 
files, insert or delete statement groups into an existing file, or 
make line-by-line changes to an existing file. It has, therefore, two 
major modes of operation: group mode or edit mode. Group mode 
provides a means of inserting, replacing, extracting, and deleting 
entire statement groups; edit mode provides a means of inserting new 
lines or deleting or modifying existing ones. 



NOTE 

Edit mode in LIBARY acts as a text 
editor for the library. However, this 
editor is not as powerful or as useful 
as the text editors provided with the 
operating system (such as TECO and 
EDIT) . LIBARY edit mode is there for 
historical reasons and its use is not 
recommended . 



7-18 



COBOL-74 UTILITY PROGRAMS 



7.2.6 LIBARY Commands 

The following sections describe the commands available with LIBARY. 
LIBARY commands are divided into three classes of commands: 

• Group mode (See Section 7.2.6.1) 

• Edit mode (See Section 7.2.6.2) 

• LIBARY-directing (See Section 7.2.6.4) 

These commands may be abbreviated as long as you supply a unique 
abbreviation. 

7.2.6.1 Group Mode Commands - Group mode commands allow you to 
insert, replace, extract, and delete entire statement groups. The 
group mode commands are: 

NOTE 

For the remainder of this chapter, the 
words "line number" refer to the line 
numbers generated by a system standard 
editor; the words "COBOL line number" 
refer to the conventional line numbers 
as described in Part 2, Section 1.3, 
Source Program Format. 

DELETE, library-name 

Delete the statement group identified by library-name from the 
library file. The library-name itself is also deleted. LIBARY 
moves forward through the input library file. It copies each 
statement it finds onto the output file until it encounters the 
library entry specified by library-name. When library-name is 
reached, LIBARY positions itself at the next sequential library 
entry and waits for another command. 

EXTRACT, library-name, file-specification 

Extract the complete library entry specified by library-name from 
the input library file and generate a new file named file-name. 
LIBARY searches the input library file for the library entry 
specified by library-name. When library-name is found, it 
creates a file or overwrites an existing file with the attributes 
specified by file-name and copies the library entry onto it. The 
input library file remains unchanged. 

INSERT, library-name, file-specification 

Insert the statement group contained on the file specified by 
file-name into the output library file. The statement group is 
inserted alphabetically according to the name specified by 
library-name. The file specified by file-name must be an ASCII 
file. LIBARY assumes that the entire file is to be inserted 
under library-name. If you want to insert many entries, you must 
create a separate file for each and execute a separate INSERT 
command for each. If there are line numbers in the file, they 
are included when the file is merged. If there are no line 
numbers, LIBARY generates them starting with 10 and incrementing 
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by 10. If the library entry being inserted contains COBOL line 
numbers, the /S switch must be specified. (See Section 7.2.4, 
LIBARY Switches. ) 

REPLACE, library-name, file-specification 

Replace the library entry identified by library-name with the 
statement group contained on the file specified by file-name. 
The file specified by file-name must be an ASCII file. LIBARY 
assumes that the entire file is to replace the statements 
currently associated with library-name. If you want to replace 
many library entries, you must create a separate file for each, 
and execute a separate REPLACE command for each. If there are 
line numbers in the file, they are included. If there are no 
line numbers, LIBARY generates them starting with 10 and 
incrementing by 10. The /S switch must be specified for files 
having COBOL line numbers. (See Section 7.2.4, LIBARY Switches.) 



7.2.6.2 Edit Mode Commands - Edit mode commands allow you to create a 
library file or modify an existing one with line-by-line edits from 
your terminal. To edit your file, you must first specify one of the 
following commands to enter edit mode; after which, you can enter an 
appropriate edit command to affect the actual editing you wish to 
perform: 

CORRECT, library-name 

Positions LIBARY to the group of statements specified by 
library-name and enters edit mode. Any of the commands described 
in Section 7.2.6.3, Edit Commands, can be entered at this time. 
If the /N switch is specified, LIBARY puts new line numbers on 
the output (corrected) statements. (See Section 7.2.4, LIBARY 
Switches . ) 

INSERT, library-name 

Positions LIBARY at the place in the library file that the 
specified library-name will be inserted. It then enters edit 
mode and waits for you to enter statements that will compose the 
module. The I command, described in Section 7.2.6.3, is used for 
this purpose. 

REPLACE, library-name 

Positions LIBARY at the statement group specified by library-name 
and deletes it. It then enters edit mode and waits for you to 
insert source lines by means of the I command. (See Section 
7.2.6.3, Edit Commands.) 



7.2.6.3 Edit Commands - The commands given in this section allow you 
to insert, delete, and replace individual source lines in a statement 
group. Source lines should be edited in numeric order within a 
statement group because LIBARY can only move forward in the file. The 
following edit commands are provided: 



Dnnnnnn 



Delete the line specified by nnnnnn. The line number can be 
entered without leading zeros. That is, you need not enter six 
characters unless there are that many characters actually in the 
line number. 
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Innnnnn COBOL statement 

Insert the COBOL statement into the statement group according to 
the line number specified by nnnnnn. The line number can be 
entered without leading zeros. A space or tab must be included 
between the line number and the COBOL statement; the space will 
not be included in the statement, but the tab will. 

Rnnnnnn COBOL-statement 

Replace the source line identified by nnnnnn with the specified 
COBOL-statement. The line number can be entered without leading 
zeros. A space or tab must be included between the line number 
and the statement; the space will not be included in the 
statement, but the tab will. 



7.2.6.4 LIBARY-Directing Commands - LIBARY-directing commands allow 
you to end or restart library processing. The LIBARY-directing 
commands are: 

END 

Copy any remaining statement groups from the input to the output 
file, close both the input and output files, and rename the input 
file with the extension .BAK, if necessary. 



RESTART 



Copy any remaining statement groups from the input to the output 
files, close both the input and output files, rename the input 
file with the extension .BAK, and reopen the output file as the 
new input. Any changes made prior to issuing the RESTART command 
are in the new input file. 



NOTE 

LIBARY maintains source modules in 
ascending order. Line numbers within 
modules are also in ascending order. If 
you want to go back in processing to a 
line previously passed, use the RESTART 
command. 



7.2.6.5 Example of Command Usage - A library on disk contains the 
routines PAYCOMP, FIND-MP, and MP-DESCR. This example shows you how 
to do the following: 

1. Insert a new routine called JOB-DESC 

2. Correct MP-DESCR 

3. Delete PAYCOMP 

These tasks must be undertaken in this order because LIBARY deals with 
code units in alphabetic order only. The MP-DESCR routine contains 
the following source statements: 

000010 LABEL RECORDS ARE OMITTED 
000020 DATA RECORD IS MP-RECORD. 
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The dialogue at the terminal might appear as follows: 

.R LIBARY 

♦LIBARY. NEW=LIBARY. OLD 

♦INSERT JOB-DESC 

*I10 LABEL RECORDS ARE STANDARD; 

*I20 VALUE OF ID IS "JOBS DAT"; 

*I30 DATA RECORD IS JOB-RECORD. 

♦CORRECT MP-DESCR/N 

*I5 BLOCK CONTAINS 5 RECORDS 

♦DELETE PAYCOMP 

♦END 

The file LIBARY. NEW now contains the following: 

1. FIND-MP 

2. JOB-DESC 

3. MP-DESCR, altered to appear as follows: 

000010 BLOCK CONTAINS 5 RECORDS 
000020 LABEL RECORDS ARE OMITTED 
000030 DATA RECORD IS MP-RECORD. 

To insert one or more files in a library, you can issue the following 
commands to LIBARY. 

.R LIBARY 
♦ALIB,ALIB= 
♦INSERT AFIL, AFIL 
♦INSERT BFIL, BFIL 
♦END 

♦~C 

The file ALIB.LIB contains two statement groups (AFIL and BFIL) and 
the file ALIB.LST contains the following information. 

AFIL COBOL LIBRARY 01-DEC-78 09:52 

000010 DISPLAY "A". 



BFIL COBOL LIBRARY 01-DEC-78 09:52 

000010 DISPLAY "B" . 

7.3 COBDDT - PROGRAM FOR DEBUGGING COBOL PROGRAMS 

COBDDT is an interactive program that is used to debug COBOL programs 
at run-time. With COBDDT, you can: 

1. Change the contents of a data-name 

2. Set up to 20 breakpoints in a program 

3. Continue from a breakpoint to any other breakpoint 

4. Display the contents of a data-name 
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5. Trace paragraphs and sections 

6. Obtain a histogram of paragraphs executed to show program 
behavior 

7. Interrupt a running program 



7.3.1 Loading and Starting COBDDT 

To run COBDDT, you must first compile the source program. You then 
load and start the compiled program with COBDDT. 

NOTE 

Using the /P switch with the COMPILE 
command suppresses the user symbols that 
are used by COBDDT. Therefore, you must 
not use the /P switch when compiling 
your program, if you wish to use COBDDT. 

You can load the compiled source program with either the monitor 
command LOAD or direct commands to LINK. In both cases, LINK loads 
the user symbols along with the program. 

After loading the compiled source program, you issue the monitor 
command START to start the program. You can also issue the monitor 
command DEBUG to load and start COBDDT with your COBOL program. If 
you use the DEBUG command, you can specify the file to be debugged by 
any of the following: the name of the source file, the name of the 
binary relocatable file, or merely the name of the file without the 
extension. However, if the extension of the source file is something 
other than .CBL, you must use the /COBOL switch with the DEBUG 
command. Otherwise the file is not recognized as a COBOL file. When 
you load COBDDT with the user program, only COBDDT is started; the 
program itself is not started. 

The three methods of loading and starting are shown below. Although 
all system prompts shown are for TOPS-10, you can use the same syntax 
on TOPS-20. If you are using TOPS-20, you do not have to specify the 
/"LOCALS" switch, as TOPS-20 loads local symbols by default. 

1. .LOAD %"LOCALS" file spec, SYS: COBDDT 
.START 

2. .DEBUG file spec [/COBOL] 

3. .R LINK 

*/LOCALS file spec, SYS: COBDDT /GO 
.START 

When the program is started with the START command, COBDDT is entered. 
This is shown by the message: 

STARTING COBOL DDT 
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You can now issue any COBDDT command (described below) . If you want 
to run your program at this time, enter the PROCEED command. This 
will cause your program to run to completion or until a fatal error is 
encountered. If an error is encountered that would normally cause 
abortion of execution, COBDDT is entered automatically and the 
message : 

PENTERING COBDDT from: <paragraph-name> 

gives the name of the paragraph in which the error occurred. COBDDT 
can then be used to check data values at the time of the failure. The 
program cannot proceed after COBDDT has been entered due to an error. 

If the COBOL program is in a loop and is not reaching a breakpoint, 
you can enter COBDDT by typing CTRL/C two times followed by typing the 
REENTER command. For example: 

"C~C 
REENTER 

This will cause COBDDT to display the following message: 

Do you want to enter COBDDT (Y or N) 

If you enter Y, the execution of the object program is resumed where 
it was interrupted and COBDDT is entered at the next TRACE entry in 
the program. If you enter N, however, your COBOL program will be 
reentered at its original address. 



7.3.2 COBDDT Commands 

The commands to COBDDT are described below. Other than for the STOP 
command, you need only type the first letter of each command for 
COBDDT to recognize the command. For the STOP command, however, you 
must type the entire command. Data-names and section-names need not 
be typed in full as long as each name or portion of the name is unique 
in the program. Paragraph-names may be qualified by section-names, 
and data-names may be qualified by higher-level data-names or 
subscript values or both. The subscripts for a qualified data-name 
must appear immediately after the first data-name. Subscripts must be 
numeric integers. Section-names and data-names cannot be qualified by 
program-names because COBDDT uses the names in the program specified 
in the MODULE command. 



ACCEPT 



The ACCEPT command allows you to change the contents of a data 
item. The new contents of the data item are typed on the next 
line. The ACCEPT command has the format: 

ACCEPT 

ACCEPT data-name 

If the data-name is not specified, the last name specified in a 
DISPLAY or another ACCEPT command is assumed. 
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Example : 



*ACCEPT VAR1 
16.25 



BREAK 



The BREAK command sets a breakpoint (or pause) at the beginning 
of the specified paragraph or section name. The BREAK command 
has the format: 

BREAK paragraph-name 
BREAK section-name 

Up to 20 breakpoints can be set in a program. Breakpoints cannot 
be set in the high segment of a reentrant program on TOPS-10. 

Breakpoints can be set in nonresident COBOL segments, whether or 

not the segment is in memory. If more than one module is in 

memory, the name of the module in which the break occurred is 
typed with the paragraph and section names. 

You can set breakpoints in LINK overlays, but all breaks in the 
overlay are cleared when the overlay is overlaid or cancelled. 
To set breakpoints in LINK overlays, you must use the OVERLAY 
command to specify OVERLAY ON. If you do not specify the OVERLAY 
ON command, the program executes through the overlay before you 
can set a breakpoint. This is because you cannot set a 
breakpoint in an overlay unless the overlay is in memory. 

Example : 

*BREAK PARI 



CLEAR 



The CLEAR command removes the breakpoint at a specified 
paragraph. The CLEAR command has the format: 

CLEAR paragraph-name 
CLEAR 

If the paragraph-name is not specified, all breakpoints that have 
been set in the program are removed. 

Example: 

*CLEAR PARI 



Version 12A 7-25 January 198 



DDT 



COBOL-74 UTILITY PROGRAMS 



The DDT COBDDT command causes an entry to be made to DDT, the 
assembly language debugger. COBDDT can supply only certain types 
of data; the use of the DDT COBDDT command enables you to look 
at the data areas or procedure areas of the object program. This 
allows you to change the compiled code or to put breakpoints in 
the middle of a paragraph. If COBDDT or LIBOL have been linked 
with symbols, you can use the DDT COBDDT command to look at these 
as well. To use the assembly language debugger, you must first 
use the LOCATE command or an assembly listing to obtain the 
addresses of the areas that you want to look at. Once you have 
these addresses, you can use the DDT COBDDT command to look at 
these areas. The DDT COBDDT command has the format: 

DDT 

COBDDT responds to the DDT command by telling you how to exit 
from the assembly language debugger back to COBDDT. To get back 
to COBDDT from the assembly language debugger, you use the POPJ 
17, X statement. 

The DDT COBDDT command does not cause the assembly language 
debugger to be loaded, therefore you must load the assembly 
language debugger before you begin the debugging session. 

This example shows the use of the DDT COBDDT command on TOPS-10. 
Although the system prompt differs on TOPS-20, the use of the 
command is the same on both systems. 

Example: 

.GET PRGRM 

.DDT 

DDT 

$G 

STARTING COBOL DDT 

*DDT 

[Return from DDT by typing "POPJ 17, X] 

DDT 



DISPLAY 



The DISPLAY command causes the contents of a data item to be 
displayed on the user's terminal. The DISPLAY command has the 
format: 

DISPLAY 

DISPLAY data-name 

If no data-name is specified, COBDDT uses the last data-name 
specified in an ACCEPT or DISPLAY command. 
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Example : 



*DISPLAY ALPHA 




GO 



The GO command causes the program to resume execution of the 
specified procedure name. The GO command has the format: 

GO procedure-name 

The procedure name must be in a module that is currently loaded 
into core. Execution of the program begins at the designated 
procedure name immediately after the command is typed. 

The procedure name that you specify can be in another module, if 
that module is in memory. However, the GO command does not set 
up a return for the EXIT PROGRAM statement, nor does it provide 
addresses for LINKAGE SECTION items. 

The GO command also does not alter the existing stack of PERFORM 
exits or subprogram exits. If an error is detected in using 
these return mechanisms following the GO command, control is 
returned to COBDDT, but the PROCEED and GO commands are disabled. 
Therefore further execution of the object program is not 
possible . 

Example: 

*GO PARA1 

BREAK AT <<PARA4>> 



LOCATE 



The LOCATE command causes the object-time address of a procedure 
name or a data item to be typed. The LOCATE command has the 
format: 

LOCATE procedure-name 

LOCATE data-item 

If the specified data-item does not start on a word boundary in 
memory, the bit displacement of the data-item is also displayed. 

Example : 

*LOCATE PARA1 
401057 
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MODULE 



The MODULE command causes COBDDT to look for data names and 
procedure names in the specified program. The MODULE command has 
the format: 

MODULE [program-name] 

If the name is omitted, COBDDT types the name of the current 
module followed by the names of all modules currently in memory. 

Normally, within a run unit containing more than one program, 
COBDDT searches for data names and procedure names in the current 
program. The MODULE command changes the program in which the 
search will take place. All subsequent searches for data names 
and procedure names will be within the specified program until 
another MODULE command is issued. If the current module is 
cancelled or overlaid, the main program becomes the current 
module. 

Example : 

*MODULE 

CURRENT MODULE: MYPROG 
* 



NEXT 



The NEXT command causes the contents of a data item to be 
displayed on the user's terminal. The NEXT command uses the 
variable name and the subscript values given for the last ACCEPT, 
DISPLAY, or NEXT command and adds the numeric value of the signed 
integer to the rightmost subscript value in the subscript list. 
The NEXT command has the format: 

NEXT 

NEXT signed integer 

If the signed integer is omitted, a default of +1 is used. A 
signed integer can be any integer with plus, minus, or no leading 
sign. If you specify a subscript that is out of range, an error 
message is displayed. 

Example: 

*NEXT 3 
33 



OVERLAY 

The OVERLAY command either causes a break when an overlay is 
entered or clears the breakpoint. The OVERLAY command has the 
format: 

OVERLAY ON 
OVERLAY OFF 
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OVERLAY ON causes COBDDT to break the first time that a LINK 
overlay is entered each time it is brought into memory. The 
break only occurs once for each time the overlay is brought into 
memory. COBDDT types the following message when the break 
occurs : 

BREAK UPON ENTRY TO name 

where name is the name of the entry point. Following the 
message, COBDDT types the name of the current module and a list 
of the modules currently in memory. 

OVERLAY OFF causes COBDDT not to break when a LINK overlay is 
entered and not to type the information described above. OVERLAY 
OFF is the initial default. 



PROCEED 



The PROCEED command causes the program either to be started or to 
continue execution after a breakpoint caused it to pause. The 
PROCEED command has the format: 

PROCEED 
PROCEED n 

After a PROCEED command is executed, the program runs either to 
completion or until another breakpoint is reached. If an integer 
is included with the command, the program runs until the n(th) 
occurrence of the preceding breakpoint has been reached. Thus 
PROCEED 1 is equivalent to PROCEED. 

Example: 

*PROCEED 3 

BREAK AT <<PARA3>> 



STEP 



The STEP command causes your program to execute a specified 
number of steps, each step being a procedure name, section name, 
or a paragraph name. The default is a single step. The STEP 
command has the format: 

STEP 

STEP integer 

If an integer is included with the command, the program runs 
until the n(th) occurrence of the preceding breakpoint has been 
reached. When the STEP command has completed the specified 
number of steps, the program is interrupted, and control is 
returned to COBDDT. The following display then occurs: 

procedure -name 
STEP AT program-name 

EXIT PROGRAM 
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Modules that have been compiled with the /P switch are invisible 
to the STEP program. The entry point, the procedure names and 
the exit programs are not counted as steps. 

Example: 

*STEP 2 

BREAK AT <<PARA2>> 



STOP 



The STOP command is equivalent to the COBOL STOP RUN statement. 
All files that are open are closed and program execution is 
terminated. The STOP command has the format: 

STOP 

You must type the word STOP in full. Typing only the first 
letter, S, initiates execution of the STEP command. 

Example: 

*STOP 
EXIT 



TRACE 



The TRACE command starts tracing, stops tracing, or traces 
backwards, depending on the form of the command. The TRACE 
command has the format: 

TRACE ON 
TRACE OFF 
TRACE BACK 

TRACE ON causes tracing of all paragraphs and sections as they 
are executed. Whenever a paragraph or section is entered, its 
name, enclosed in angle brackets (<>) , is typed on the user's 
terminal . 

For each depth of subprogram, COBDDT types an exclamation point 
(!) before each paragraph or section name. For each depth of a 
PERFORM statement, COBDDT also types an asterisk (*) before each 
paragraph or section name. The maximum length of the string 
printed is 35 characters. Note that the exclamation point and 
asterisk are printed for each depth of subprogram or PERFORM. 

Example: 

*TRACE ON 

i !*i**<PARA> 



When a LINK overlay is brought into memory, COBDDT types the 
names of any modules overlaid and the names of the modules in the 
new overlay. When a LINK overlay is cancelled, COBDDT types the 
names of the modules in that overlay. 
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TRACE OFF causes COBDDT to stop tracing procedures until either 
execution is terminated or another TRACE ON command is executed. 

Example : 

*TRACE OFF 

* 

TRACE BACK causes COBDDT to show the sequence of paragraphs and 
sections that were called to reach this program. When you 
specify the TRACE BACK command, the name of the currently 
activated program is displayed, followed by the sequence of 
programs that were called to reach this program. 

Example: 

*TRACE BACK 

IN PROGRAM [SAMPLE] 

* 



WHERE 



The WHERE command causes COBDDT to list the names of all 
paragraphs at which breakpoints were set. The WHERE command has 
the format: 

WHERE 

If more than one module is in memory, the module name is included 
with the paragraph name. 

Example : 

*WHERE 

PROGRAM STOPPED AT <<PARA1>> 

BREAKPOINTS: 
<<PARA1>> 
<<PARA2>> 
<<PARA3>> 

17 UNUSED BREAKPOINTS 
* 



7.3.3 Obtaining Histograms of Program Behavior 

The histogram facility in COBDDT allows you to obtain a report of the 
number of times each section and paragraph in your COBOL program was 
entered as well as the total amount of processor time and elapsed time 
spent in each section and paragraph. The commands for using this 
feature are described in the following sections. 

Both words of the histogram commands can be shortened to their unique 
abbreviations. None of the commands can be abbreviated to just H ; 
the first letter of the second word of the command must be present; 
for example, H I, H B, and H E are legal. 
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7.3.3.1 Initializing the Histogram Table - The HISTORY INITIALIZE 
command causes COBDDT to set up and initialize the histogram table in 
which are stored the statistics for the histogram. The form of this 
command is: 

HISTORY INITIALIZE [f ilespec ][' title ' ] 

The file specification is the device, filename, extension, and 
project-programmer number of the output histogram report 
(dev:f ile.ext [p,pn] ) . If the entire file specification is omitted, 
the user's terminal is assumed. If the device is omitted but the 
filename is included, DSK is assumed. If the extension is omitted, 
.HIS is assumed. If the project-programmer number is omitted, that of 
the logged-in user is assumed. Users of TOPS-20 who wish to specify a 
directory other than the default may run the TRANSLATE program to 
determine the correct project-programmer number. (See the TOPS-20 
User's Guide for information on how to do this.) For an alternative 
which is generally more useful, see Appendix E, Defining Logical Names 
under TOPS-20. 

The title is the one that will be printed as the second line of the 
histogram report. It must be enclosed in single quotation marks and 
can have a maximum length of 70 characters. 

Once you specify a file specification and/or title, it becomes the 
default for any subsequent reports until explicitly changed. 

It is not necessary to use this command, but it is advisable to do so 
if only a portion of the program's statistics are to be recorded. The 
table can also be reinitialized by means of the HISTORY INITIALIZE 
command to begin a new histogram. 



7.3.3.2 Starting the Histogram - The HISTORY BEGIN command causes 
COBDDT to start gathering statistics for each section and paragraph 
entered after this command is issued. This command has the form: 

HISTORY BEGIN [f ilespec] [' title ' J 

The file specification is the device, filename, extension, and 
project-programmer number of the output histogram report 

(dev: f ile.ext [p,pn] ) . If the entire file specification is omitted, 
the user's terminal is assumed. If the device is omitted but the 
filename is included, DSK is assumed. If the extension is omitted, 

.HIS is assumed. If the project-programmer number is omitted, that of 
the logged-in user is assumed. Users of TOPS-20 who wish to specify a 
directory other than the default may run the TRANSLATE program to 
determine the correct project-programmer number. (See the TOPS-20 
User's Guide for information on how to do this.) For an alternative 
which is generally more useful, see Appendix E, Defining Logical Names 
under TOPS-20. 

The title is the one that will be printed as the second line of the 
histogram report. It must be enclosed in single quotation marks and 
can have a maximum length of 70 characters. 

Once you specify a file specification and/or title, it becomes the 
default for any subsequent reports until explicitly changed. 

The HISTORY BEGIN command implies a HISTORY INITIALIZE command if one 
has not already been issued and if a histogram has not already been 
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started. If a histogram already exists, HISTORY BEGIN will add data 
to that histogram. The statistics collected are: 

The number of times each paragraph or section is entered 
The CPU time spent within each paragraph or section 
The elapsed time spent within each paragraph or section 
The elapsed time and CPU time for overhead 
The elapsed time and CPU time that is unaccounted for 

7.3.3.3 Stopping the Histogram - The HISTORY END command causes 
COBDDT to stop gathering statistics for the histogram. This command 
has the form: 

HISTORY END 

If you wish to gather statistics throughout the entire execution of 
the program, you need not use the HISTORY END command. However, if 
you wish to stop gathering statistics for the histogram before the 
program finishes, you must set a breakpoint at the appropriate 
paragraph and, when the break occurs, use the HISTORY END command. 

7.3.3.4 Obtaining Histogram Listing - The HISTORY REPORT command 
causes COBDDT to list the available statistics in a report. This 
command has the form: 

HISTORY REPORT [file specif ication] [' title ' ] 

The file specification is the device, filename, extension, and 
project-programmer number of the output histogram report 
(dev:f ile.ext [p,pn] ) . If the entire file specification is omitted, 
the user's terminal is assumed. If the device is omitted but the name 
is included, DSK is assumed. If the extension is omitted, .HIS is 
assumed. If the project-programmer number is omitted, that of the 
logged-in user is assumed. Users of TOPS-20 who wish to specify a 
directory other than the default may run the TRANSLATE program to 
determine the correct project-programmer number. (See the TOPS-20 
User's Guide for information on how to do this.) For an alternative 
which is generally more useful, see Appendix E, Defining Logical Names 
under TOPS-20. 

The title is the one that will be printed as the second line of the 
histogram report. It must be enclosed in single quotation marks and 
can have a maximum length of 70 characters. 

Once you specify a file^ specif ication and/or title, it becomes the 
default for any subsequent reports until explicitly changed. 

The format for the histogram report is shown below. The heading is 
printed for each module that is in memory at the time the report is 
printed, even if the module was never entered. If the report is 
printed while a module for which statistics were gathered is not in 
memory, the statistics for that module are not printed. 

COBDDT HISTOGRAM FOR module-name REPORT: integer-1 

title 

PROCEDURE ENTRIES CPU ELAPSED 

-section-name- integer-2 time-1 time-2 

paragraph-name integer-3 time-3 time-4 

OVERHEAD: ELAPSED: time-5 CPU:time-6 
UNACCOUNTED: ELAPSED: time-7 CPU:time-8 
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module-name 
integer-1 

title 
section-name 

integer-2 

time-1 

time-2 

paragraph-name 

integer-3 

time-3 

time-4 

time-5 

time-6 
time-7 

time-8 



is the name of the 
PROGRAM ID clause. 



module, taken from the 



is the report number. It starts at 1 and is 
incremented by 1 for each report produced in 
a run. 



is the title that the user specified 
of the HISTORY commands. 



in one 



is the name of a section into which control 
was transferred or passed. Each paragraph in 
the section to which control was passed is 
given with the section. 



is the number of times control 
directly to the section. 



is the amount 
section. 



was passed 
of CPU time spent in the 

in the 



is the amount of elapsed time spent 
section. 

is the name of a paragraph to which control 
was transferred or passed. 

is the number of times control was passed to 
this paragraph. 

is the amount of CPU time spent in this 
paragraph . 

is the amount of elapsed time spent in this 
paragraph. 

is the elapsed time spent entering and 
exiting from subprograms and PERFORM 
statements. If this time is 0, the line is 
not printed. 

is the CPU time spent entering and exiting 
from subroutines and PERFORM statements. 

is the elapsed time that could not be charged 
to any section or paragraph. If this time is 
0, the line is not printed. 

is the CPU time that could not be charged to 
any section or paragraph. For example, when 
a subprogram is entered, the time accrued 
until the first paragraph or section is seen 
is charged to unaccounted. 

If control is never passed to a particular section or paragraph, 
nothing is printed for that section or paragraph. When a PERFORM 
statement or subprogram is entered, the current paragraph or section 
is saved on a stack so that COBDDT can continue to charge time to the 
correct section or paragraph when the return is done. The size of the 
stack is 20 locations. After a depth of twenty calls or PERFORM 
statements is reached, time is charged to unaccountable. 
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A sample histogram report is shown below. 



COBDDT HISTOGRAM FOR CASHX 

PROCEDURE 

-GENERATED-SECTION-NAME- 
START 
ST-1 
START-2 
INITIAL-SETUP 
END-INITIAL-SETUP 
CONVERT-RECORDS 
END-CONVERT-RECORDS 
RATE-IT 
END-RATE-IT 





REPORT: 


r-t 


TRIES 


CPU 


ELAPSED 





1.360 


21.707 


721 


0.008 


2.641 


1 


0.000 


0.000 


721 


0.385 


5.616 


1 


0.016 


0.233 


1 


0.000 


0.017 


721 


0.400 


5.575 


721 


0.167 


2.146 


721 


0.178 


2.086 


721 


0.206 


3.393 



7.3.3.5 Using the Histogram Feature - To use the histogram feature, 
issue the following commands upon entering COBDDT for the first time. 

HISTORY INITIALIZE 
HISTORY BEGIN 



At any 

gather i 

command 

command 

BEGIN c 

issue 

statist 

previou 

INITIAL 



time when you 
ng statistic 
If you iss 
, the histog 
ommand was is 
a HISTORY IN 
ics will be 1 
s histogram, 
IZE command. 



are stopped at a breakpoint, you can stop 
s for the histogram by issuing the HISTORY END 
ue a HISTORY BEGIN command after a HISTORY END 
ram will continue from the point where the HISTORY 
sued. However, if after a HISTORY END command you 
ITIALIZE and a HISTORY BEGIN command, the previous 
ost and a new histogram begun. To get the 
issue a HISTORY REPORT command before the HISTORY 



If a histogram file already exists with the same file specification as 

the one given, the histogram report is appended to the existing file. 

If the file specification is different, COBDDT starts a new histogram 

file. 



7.4 RERUN - PROGRAM TO RESTART COBOL-74 PROGRAMS 

The RERUN program is used to restart a COBOL program that has been 
terminated abnormally due to a system failure, a device error, or an 
exceeded disk quota. RERUN uses checkpoint files, which are similar 
to memory-image dump files. They are created in one of two ways: 

• By including RERUN statement (s) in the COBOL program itself 

• B Y typing CTRL/C twice followed by REENTER during program 
execution 

The COBOL system creates a checkpoint file by writing a memory-image 
dump file of the program onto disk and adding some other information 
to allow a later restart of the program. At the same time, the COBOL 
system closes and reopens all disk and magnetic tape output files. 
The dump is not performed, however, if any files are open for 
input/output (updating) , if an indexed-sequential file is open when 
the dump is requested, or if a sort is in progress. Each time the 
checkpoint file is written, the COBOL system types the message DUMP 
COMPLETED on the user's terminal. 
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If the COBOL program is interrupted during execution, you can restart 
the program by means of the RERUN program. The RERUN program reads 
the dump file back into memory, restores the files to their state at 
the time the checkpoint file was written, and then passes control to 
the COBOL program so that it can continue processing to completion. 
RERUN assumes that the operating environment at the time the COBOL 
program was interrupted is the same as the environment at the time the 
checkpoint file was written. Thus, the files must be associated with 
the same types of devices, and devices must have the same logical 
names . 



7.4.1 Operating RERUN 

To restart a COBOL program from the last checkpoint file written 
before execution stopped, type R RERUN in response to the operating 
system prompt (users of TOPS-20 may respond RERUN). For example: 

.R RERUN<RET> for users of TOPS-10 

or 

(§RERUN<RET> for users of TOPS-20 

The program responds with the message: 

TYPE CHECKPOINT FILENAME 

Type the name of the checkpoint file in which the core-image dump is 
stored . 

When a checkpoint dump is being written, the COBOL system uses the 
filename of the program as the name of the checkpoint file and adds 
the extension .CKP. If the COBOL program does not have a filename 
because it was not saved, the COBOL system takes the checkpoint 
filename from the PROGRAM-ID in the program and adds the extension 
.CKP. If the program has been divided into a 2-segment file, the 
high-segment filename must be the same as the low-segment filename. 
Thus, when you respond with the checkpoint filename you are in effect 
telling RERUN the program name as well. 

If a logical device name is encountered in the program, RERUN types 
the following message: 

ASSIGN device name 
TYPE CONTINUE WHEN DONE 

and exits to monitor command level. The appropriate ASSIGN command 
should be given to assign the logical device to a specific one. Then 
a CONTINUE monitor command will reenter RERUN. 
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7.4.2 Examples of Using RERUN 

In the following example, the user has a COBOL program that was 
terminated by a system failure. Checkpoints had been inserted in the 
program by means of RERUN statements. The program has a filename of 
ACCNT; thus, the checkpoint filename is ACCNT.CKP. Instead of 
running the program again from the beginning, the user employs the 
RERUN program to restart his program from the last checkpoint written 
before the program stopped. He types: 

.R RERUN<RET> 
and RERUN responds: 

TYPE CHECKPOINT FILENAME 
The user types: 

ACCNT. CKP<RET> 

RERUN loads the checkpoint file into memory, reopens and repositions 
the magnetic tape and disk files, and passes control to the COBOL 
program so that it can continue processing to completion. 

In the example below, a user running a COBOL program is notified that 
the system is going down. He does not have any RERUN statements in 
his program, yet he wishes to create a checkpoint file so that the 
processing done by his COBOL program up to that point is not wasted. 
He creates the checkpoint file by typing CTRL/C twice and then typing 
REENTER. The checkpoint file is written by the COBOL system onto disk 
with a filename of PROG13 (taken from the PROGRAM-ID) and an extension 
of .CKP. After the system is restored, the user can restart the 
program by running the RERUN program. The dialogue is as follows: 

@RERUN<RET> 

TYPE CHECKPOINT FILENAME 

PR0G13.CKP<RET> 

The program PROG13 is loaded into memory, its files are reopened, and 
it continues running to completion. 
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FILE FORMATS 



8.1 RECORDING MODES 

The recording mode specifies the byte size of the data and, except for 
binary mode, also specifies the character set used. The four 
recording modes and their respective byte sizes are: 



RECORDING MODE 

ASCII 
SIXBIT 
EBCDIC 
Binary 



BYTE SIZE 

7 bits 
6 bits 

8 bits 

36 bits (1 word 



The following sections describe the recording modes in more detail 



8.1.1 ASCII Recording Mode 

An ASCII word consists of 5 characters left justified in the word. 
Each character is represented by a 7-bit byte: 

ASCII RECORDING MODE 








1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 




BINARY m 
REPRESENTATION - *" 


• 


o 


o 





o 


o 


• 





• 


• 


o 


o 





• 


• 





o 


o 


o 


• 


o 


o 


• 


• 


o 


o 


• 


o 


• 


o 


o 





o 


• 


• 


X 
























C 

















































































BYTES: 5 



• = on bit 
o = off bit 
X = unused bit 



Figure 8-1 ASCII Recording Mode 



NOTE 

A variant form of ASCII, line-sequence 
ASCII, sets bit 35 of the line-sequence 
word to 1. 
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8.1.2 SIXBIT Recording Mode 

SIXBIT is a compressed form of ASCII in which lowercase letters and a 

few special characters are not used. A SIXBIT word consists of 6 

characters per word, with each character represented by a 6-bit byte: 



SIXBIT RECORDING MODE 










1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 






BINARY 
REPRESENTATION 


• 


O 


o 


o 


o 


• 


o 


• 


o 


o 


o 


• 


• 


o 


o 





• 


o 


o 


• 


o 


o 


• 


o 


• 


o 


o 


o 


• 


• 





• 


o 


o 


• 


• 




A 








r 


Q 















































































BYTES: 6 



• = on bit 
o = off bit 



Figure 8-2 SIXBIT Recording Mode 



8.1.3 EBCDIC Recording Mode 

An EBCDIC word consists of 4 characters per word. Each byte is 9 bits 
long, but the first bit in each byte is unused. Each character is 
represented by 8 bits: 

EBCDIC RECORDING MODE 



BITNUMBER- 



BINARY 

representation" 






1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


X 


• 


• 


• 


j 


o 


o 


o 














o 


o 


o 


• 


X 


• 


• 


• 








o 


• 


o 


X 


• 


• 


• 


• 


o 


o 


• 


o 


A 


1 


B 


2 



BYTES: 4 

• = on bit 

O = off bit 

X = unused bit mr S032-79 

Figure 8-3 EBCDIC Recording Mode 

A variant form, used only for magnetic tape, is industry-compatible 
EBCDIC. In this form of EBCDIC, there are 4 characters per word, left 
justified within the word. Each character is represented by an 8-bit 
byte. The last 4 bits in the word are unused: 

INDUSTRY-COMPATIBLE EBCDIC RECORDING MODE 








1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15" 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 




BINARY 
REPRESENTATION - "" 


• 


• 


• 


o 


o 


o 


o 












o 


o 


o 


• 


• 


• 


• 


o 


o 


o 


• 


o 


• 


• 


• 


• 


o 


o 


• 


o 


X 


X 


X 


X 










-> 













































































BYTES: 4 



• = on bit 
o = off bit 



MR-S-033-79 



Figure 8-4 EBCDIC Recording Mode - Industry-Compatible 
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8.1.4 BINARY Recording Mode 

Unlike the recording modes previously mentioned, binary mode does not 
specify a character set for the data. In binary mode, the entire 
36-bit word is interpreted as a single byte of binary data: 



BINARY RECORDING MODE 



BIT NUMBER- 



BINARY 
REPRESENTATION" 






1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


• 


o 


• 


o 


o 


• 


• 


• 


o 


o 


• 


o 


• 


• 


• 


• 


o 


o 


o 


o 


o 


o 


2,739,136 



BYTES: 1 



• = on bit 

o = off bit 



Figure 8-5 Binary Recording Mode 
This is the only way an ASCII file can be read preserving nulls. 



8.2 FILE FORMATS 

The file format specifies the structure of the record used to store 
the data. The following sections describe all major file formats. 
Each section includes a diagram of the file format and a COBOL code 
segment that generates the file format. 

The following conventions are used in the diagrams: 

1. Alphanumeric or numeric character data in a word is shown 
with each individual character enclosed in a box. The box 
represents 1 byte. Thus, a word of ASCII data would be shown 
as follows: 



2. 



A 


B 


C 


D 


E 



MR-S-1 364-81 



Binary data in a word (fixed- and floating-point numbers) 
shown by a number in the word: 



is 



32156. 10 



MR-S-1 365-81 

EBCDIC packed-decimal values are shown as two decimal digits 

per EBCDIC byte. The right half of the rightmost byte 

contains the sign. Neither the digits nor the sign are 
EBCDIC characters. 

COBOL signed numeric data, such as produced by PIC S9(n), is 
shown with the over-punched character, if the sign is 
negative. For example, -12345 is shown as 1234N, with the N 
representing both the negative sign and the value 5. 
DIGITAL'S COBOL does not use over-punched characters for 
positive sign representation, so diagrams depicting positive, 
signed numeric data do not show a sign. 



Italicized characters in a diagram do not depict data; 
label or clarify parts of the diagram: 



they 
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RDW 30 






6. 



Heavy vertical lines are used to 
within a record: 



delimit individual fields 



C|1 



EEEj 



7. 



MR-S-1 367-81 

Padding, the use of blanks or nulls to force the next record 
to begin on some boundary (for example, a word or disk-block 
boundary), is shown by white space in the word: 



A 


A 


I 


2 3 5 9 



MR-S-1368-81 

You cannot consider padding as part of a record field, nor can you use 
padding as part of a key field. However, the length of any padding 
must be taken into account when calculating record length and key 
starting position. 



8.2.1 Fixed-Length ASCII 

A fixed-length ASCII file consists of records containing five 
characters per 36-bit word, with each group of 5 characters 
left-justified within the word. Fixed-length ASCII records must end 
with a carriage-return/line feed. Depending upon the method in which 
the records are written to a file, fixed-length ASCII records are 
written as follows: 

1. With the BEFORE ADVANCING clause of the WRITE statement, a 
carriage-return/line feed is inserted at the end of each 
record. 

2. With the AFTER ADVANCING /AFTER POSITIONING clauses of the 
WRITE statement, a carriage-return/line feed is inserted at 
the beginning of each record, and a carriage-return is 
inserted after the last record of the file. 



The following diagram illustrates the format of fixed-length ASCII 
records: 



WORD 
1 
2 
3 
4 
5 
6 
7 



RECORD 



1 * 


B 


C 


D 


E 


F 


G 


dD 


GD 


A 


B 


C 


D 


E 


F 


G 


CUD 


mp 


A 


B 


C 


D 


E 


F 


G 


dD 


CUD 


A 


B 


C 


D 


E 


F 


G 


C§D 


CHD 





CUD CARRIAGE RETURN 
LINE FEED 



Figure 8-6: Fixed-Length ASCII 
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CODE SEGMENT: 



ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT filename ASSIGN TO DSK 

RECORDING MODE IS ASCII 



DATA DIVISION, 
FILE SECTION. 

FD filename 
01 record-1 
02 field-1 
02 field-2 
02 field-3 
02 field-4 
02 field-5 



VALUE OF ID "DATA FIL" . 

DISPLAY-7. 

PIC X(6) VALUE "AB12EF". 

PIC A (3) VALUE "GHI" . 

PIC 9(4) VALUE 3249. 

PIC S9(6) VALUE -481253. 

PIC S9(6)V9999 VALUE +31458.5012, 



Figure 8-7 illustrates the record produced by the code segment shown 
above: 

WORD 
1 
2 
3 
4 
5 
6 
7 

MR-S-036-79 

Figure 8-7: COBOL Fixed-Length ASCII with BEFORE ADVANCING 

If the WRITE statement for record-1 had the AFTER ADVANCING clause, 
the record produced by the code segment shown above would appear as: 

WORD 



h 


B 


1 


2 


E 


F 


G 


H 


I 


3 


2 


4 


9 


4 


8 


1 


2 


5 


L 





3 


1 


4 


5 


8 


5 





1 


2 


fSD 


GD 





(RET) 


m 


A 


B 


1 


2 


E 


F 


G 


H 


I 


3 


2 


4 


9 


I 4 


8 


1 


2 


5 


L 





3 


1 


4 


5 


8 


5 





1 


2 








(RET) 



MR-S-3095-83 



Figure 8-8: COBOL Fixed-Length ASCII with AFTER ADVANCING 
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8.2.2 Variable-Length ASCII 

Variable-length ASCII consists of records containing five characters 
per 36-bit word, with each group of 5 characters left-justified within 
the word. Depending upon the method in which the records are written 
to a file, variable-length ASCII records are written as follows: 

1. With the BEFORE ADVANCING clause of the WRITE statement, a 
carriage-return/line feed is inserted at the end of each 
record. 

2. With the AFTER ADVANCING/AFTER POSITIONING clauses of the 
WRITE statement, a carriage-return/line feed is inserted at 
the beginning of each record, and a carriage-return is 
inserted after the last record of the file. 

The following diagram illustrates the format of variable-length ASCII 
records: 



WORD 



RECORD 

















' 


1* 


B 


c 


D 


E 


1 


2 


F 


GOD 


C^~) 


A 


B 


2 


3 


C 


D 


E 


F 


G 




4 


H 


1 


J 


GD 


OD 




5 


A 


E 


GnD 


CiD 


CZD 


3 


6 


A 


B 


c 


D 


E 


4 


7 


F 


G«D 


QD 










dD 

GD 
GED 

GD 


= CARRI 
= VERTI( 
= FORM 
= LINE F 


AGE RET 
:al TAB 

FEED 
EED 


URN 





Figure 8-9: Variable-Length ASCII 
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CODE SEGMENT: 



ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT filename ASSIGN TO DSK 

RECORDING MODE IS ASCII 

DATA DIVISION. 
FILE SECTION. 



FD filename 
01 record-1 
02 field-1 
02 field-2 
02 field-3 
02 field-4 

01 record-2 
02 field-1 
02 field-2 
02 field-3 
02 field-4 



VALUE OF ID "DATA FIL" . 

DISPLAY-7. 

PIC X(7) VALUE "AB13521" . 

PIC S9(7)V99 VALUE -3269.02, 

PIC A (3) VALUE "ILM" . 

PIC 9(4) VALUE 1359. 

DISPLAY-7. 

PIC X(7) VALUE "EFGHI95". 

PIC S9(7)V99 VALUE 42553.40, 

PIC A (3) VALUE "LMN" . 

PIC 9(7) VALUE 3712536. 



PROCEDURE DIVISION. 

WRITE record-1 BEFORE ADVANCING. 
WRITE record-2 BEFORE ADVANCING. 



Figure 8-10 (a) illustrates the record produced by the code segment 
shown above: 



WORD 
1 
2 
3 
4 
5 
6 
7 



10 



A 


B 


1 


3 


5 


2 


1 





3 


2 


6 


9 


O 


K 


1 


L 


M 


1 


3 


5 


9 


CUD 


cm 


E 


F 


G 


H 


i 


9 


6 


4 


2 


5 


5 


3 


4 


O 


L 


M 


J 


3 


7 


1 


2 


5 


3 


6 


® 


cm 





MR-S-038-79 



Figure 8-10 (a): COBOL Variable-Length ASCII with BEFORE ADVANCING 
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If the WRITE statements for record-1 and record-2 had the AFTER 
ADVANCING clause, the records produced by the code segment shown above 
would appear as: 



WORD 



1 


m 


(EE) 


A 


B 


1 


2 


3 


5 


2 


1 





3 


3 


2 


6 


9 





4 


K 


I 


L 


M 


1 


5 


3 


5 


9 


m 


© 


6 


E 


F 


G 


H 


I 


7 


9 


5 


4 


2 


5 


8 


5 


3 


4 





L 


9 


M 


N 


3 


7 


1 


10 


2 


5 


3 


6 


m 



MR-S-3096-83 



Figure 8-10 (b): COBOL Variable-Length ASCII with AFTER ADVANCING 
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8.2.3 Fixed-Length SIXBIT 

In a SIXBIT file, characters are stored six per 36-bit word, and a 
SIXBIT record must start and end on a word boundary. The left half of 
the first word in the record contains one of the following: 

1. The record sequence number of COBOL magnetic tape records 

2. Data specific to COBOL ISAM records 

3. Binary zeros 

The right half of the first word contains the number of characters in 
the record. To ensure that the record ends on a word boundary, the 
last word in the record is padded with blanks, if necessary. When 
determining the size of the record for memory considerations, you must 
take into account the first word of the record (containing file-access 
information and a character count) and the possible existence of 
padding characters (blanks) to enable the record to end on a word 
boundary. 

The following diagram illustrates the format of fixed-length SIXBIT 
records. Note that the character count is the same for each record: 



RECORD 





FAD 


cc 


= 1 


A 


B 


C 


D 


E 


F 


G 


H 


i— i 


i_i 


i_-i 


i i 




FAD 




CC 


8 


A 


B 


C. 


D 


E 


F 


G 


H 


i_i 


i_J 


i_i 


i_i 



FAD = FILE ACCESS DATA 

CC = CHARACTER COUNT 

i_i = BLANK (USED AS PADDING CHARACTER) 



MR-S-039-79 



Figure 8-10 (c) : Fixed-Length SIXBIT 
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CODE SEGMENT: 



ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION, 
FILE-CONTROL, 

SELECT filename ASSIGN TO DSK 
RECORDING MODE IS SIX KIT 

DATA DIVISION. 
FILE SECTION. 



FD 
01 



filename 
record- 1 



VALUE OF ID 
DISPLAY- 6. 



'DATA FIL 



02 field-1 PIC X<4) VALUE "A13B". 

02 field-2 PIC A(5) VALUE "CDEFG". 

02 field-3 PIC 9(10) COMP VALUE 96 

02 field-4 PIC X(2) VALUE "HI". 

02 field -5 PIC 9<11> COMP VALUE 34 

02 field-6 PIC 9<4> VALUE 1289. 

02 field~7 PIC 9(5) C0MP--1 VALUE 1 

02 field-8 PIC 9<11> COMP VALUE 12 



54039 
56798 



218. 
2314. 



23.45. 
398756983. 



Figure 8-11 illustrates the record produced by the code segment shown 
above : 



WORD 

1 

2- 
3 
4 
5 
6 
7 
8 
9 
10 



FAD 


CC 


60 


EL 


1 


3 


B 1 C 


D 


E 


F 


G 






9654839218 




H 


1 





34567982314 


1 


1 


2 


8 


• 1 


123.45 





12398756983 


1 



Figure 8-11 COBOL Fixed-Length SIXBIT 
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8.2.4 Variable-Length SIXBIT 

This format is the same as fixed-length SIXBIT, except that the 
character count may vary from record to record. The following diagram 
illustrates the format of variable-length SIXBIT records: 



WORD 
1 
2 
3 
4 
5 



RECORD 



FAD 


cc 




8 


L^_ 


B 


C 


D 


E 


F 


G 


H 


u 


L_J 


U-J 


i— l 


FAD 


CC 




11 


m 


B 


c 


D 


E 


F 


G 


H 


I 


J 


K 





FAD = FILE ACCESS DATA 

CC = CHARACTER COUNT 

i__i = BLANK (USED AS PADDING CHARACTER) 



Figure 8-12 Variable-Length SIXBIT 
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CODE SEGMENT: 







ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE- CONTROL. 

SELECT filename ASSIGN TO DSK 
RECORDING MODE IS SIXDIT. 

DATA DIVISION. 
FILE SECTION. 



FD 


f il 


ensne 


VALUE OF ID 


'DATA F'lL'. 


01 


reeord-1 


DISPLAY-6. 






02 


field 


-1 


PIC 9(7) 


COMF1 VALUE 123.4567. 




02 


field- 


. <;> 


PIC X(3) 


VALUE "A3C". 




02 


field- 


-3 


PIC A(3) 


VALUE "DEF". 




02 


field- 


-4 


PIC 9(3) 


VALUE -55. 




02 


f ield 


-5 


PIC 9(10) 


COMP VALUE 1334567809. 




02 


field- 


-6 


PIC 9(11) 


COMP VALUE 98765432108. 




02 


field- 


-7 


PIC X(2) 


VALUE "A2". 




02 


field- 


8 


PIC 9(5) 


COMP VALUE 32571. 


01 


record-2 


DISPLAY-6. 






02 


field- 


-1 


PIC 9(7) 


COMF1 VALUE 1395.678. 




02 


field- 


_o 


PIC X(3) 


VALUE •DSL". 




02 


field- 


-3 


PIC A(3> 


VALUE "LMN". 




02 


f ield- 


-4 


PIC 9(3) 


VALUE 79. 




02 


f ield- 


■5 


PIC 9(10) 


COMP VALUE 8176596821. 




02 


field- 


-6 


PIC 9(11) 


COMP VALUE 18976532150. 




02 


f ield- 


-7 


PIC X(2) 


VALUE "MS". 




02 


f ield- 


-8 


PIC 9(11) 


COMP VALUE 12357986183. 



PROCEDURE DIVISION. 

WRITE record-1. 
URITE record-2. 



J 
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Figure 8-13 illustrates the record produced by the code segment shown 
on the previous page. 



WORD 



FAD 


CC 


48 


1 


123.4567 




A 


3 


C 


D E 


F 





5 


N 




1 


1234567809 




■ 98765432108 J 


* I ■ I 


I 






32571 




FAD 


CC 


54 


I . 


1395.678 




B 


5 


L 


L l\ 


A N 





7 


9 






8176596821 




• 18976532150 J 


M 


■ 


1 




EZ 


12357986183 


1 



MH-S-042-79 



Figure 8-13 COBOL Variable-Length SIXBIT 



8.2.5 EBCDIC File Formats 

On disk and in memory, the characters in an EBCDIC file are 
represented by 8 bits right-justified in 9-bit bytes. On tape, the 
characters in an EBCDIC file are represented by 8-bit bytes, and 4 
bytes occur per 36-bit word. Within a given file, records may be 
either fixed or variable length, and may be either blocked or 
unblocked. Thus, there are four types of EBCDIC files: 

1. Fixed-length 

2. Variable-length 

3. Blocked fixed-length 

4. Blocked variable-length 
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In a file written in fixed-length EBCDIC, records all have the same 
record length and the records need not begin or end on a word 
boundary. The following diagram illustrates the format of 
fixed-length EBCDIC records in an unblocked file; 



WORD 
1 
2 
3 
4 
5 



I* 


B 


C 


D 


E 


F 


A 


B 


C 


D 


E 


* 


| A 


B 


C 


D 


E 


F 





RE CORD 

1 

2 



CODE SEGMENT: 



Figure 8-14 Fixed-Length EBCDIC 



ENVIRONMENT DIVISION, 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT filename ASSIGN TO DSK 
RECORDING MODE IS F. 

DATA DIVISION. 
FILE SECTION. 



VALUE OF ID 'DATA 
DISPLAY- 9. 



V 



FD 


fil 


ename 


V 


01 


record-1 


D 




02 


field- 


1 




02 


field- 


"2 




02 


field- 


-3 




02 


field- 


-4 




02 


field- 


-5 



FIL' . 



PIC 9(3) VALUE 123. 

PIC X(5) VALUE "ABCDE", 

PIC A(2) VALUE 'I...M" . 

PIC 9(9) COMP 3 VALUE 137958795. 

PIC S9<6) COMP-3 VALUE -351235. 



Figure 8-15 illustrates the record produced by the code segment shown 
above: 



WORD 
1 
2 
3 
4 
5 



I ■ 


2 


3 


A 


B 


C 


D 


E 


L 


M 


1 


3 


7J9 


5 ;8 


7 [9 


5 


+ 


3 


5 J1 


2 |3 


5 


- 





Figure 8-15 COBOL Fixed-Length EBCDIC 



In a file written in variable-length EBCDIC format, the record lengths 
may vary from record to record. Each record contains a 4-byte Record 
Descriptor Word (RDW) at the head of the record. The left half-word 
of the RDW specifies a value equal to the number of bytes in the 
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record plus 4 (to allow for the length of the RDW itself) . The 
rightmost 2 bytes of the RDW must be zero; if they are nonzero, they 
indicate spanned records, which are unsupported. The following 
diagram illustrates the format of variable-length EBCDIC records in an 
unblocked file: 



WORD 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



RECORD 



1 RDW 


12 


°1 


A 


B 


C 


D 


E 


F 


G 


H 


| RDW 


16 




° 


A 


B 


C 


D 


E 


F 


G 


H 


1 


J 


K 


L 


1 RDW 


12 






A 


B 


C 


D 


E 


F 


G 


H 



RDW = RECORD DESCRIPTOR WORD 



MR 5-045-79 



Figure 8-16 Variable-Length EBCDIC 
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CODE SEGMENT: 



ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT filename ASSIGN TO DSK 
RECORDING MODE IS V. 

DATA DIVISION. 
FILE SECTION. 



FD 


fil 


enaitie 


VALUE OF ID 'DATA 


FIL'. 


01 


record-1 


DISPLAY-?. 






02 


field- 


1 


PIC S9<7> COMP 


-3 VALUE -139856?. 




02 


field- 


.^ 


PIC S9<0> COMP- 


3 VALUE 57635937. 




02 


field- 


-3 


PIC 9(3) VALUE 


596. 




02 


field 


-4 


PIC A<2) VALUE 


•AD", 




02 


f ield- 


-5 


PIC X<5) VALUE 


■A13DE*. 



01 record-2 DISPLAY-?. 

02 field-1 PIC S?(7) CQMP-3 VALUE 5369787, 



02 


field-2 PIC 


S9(8) COMP 


-3 VALUE -53896156. 


02 


fieId-3 PIC 


9(3) VALUE 


593. 


02 


field-4 PIC 


A<2) VALUE 


•MN" . 


02 


field-5 PIC 


X(8) VALUE 


"ILH5MLXY«*. 


PROCEDURE DIVISION. 






WRITE record-1 . 






WRITE record-2. 




,™— -, — _ — „ , , • 



Figure 8-17 illustrates the record produced by the code segment shown 
above : 



WORD 

1 

2 

3 

4 

5 

1 
1,2 
2,3 
3,4 
4,5 
5,6 

6 



RDW 23 





l'3 

| 


9 \8 


5 


6 


9 I- 


1 ■ 

J 5 


7 ;e 


3 


5 


9 |3 


7 | + 


5 


9 


; 


A 


B 


A 


1 


3 


D 


e 


RDW 


26 





5 '3 


6 [9 


7 |8 


7 


+ 


|5 


3|'8 


9 |6 


1 


5 


6 ;_ 


5 


9 


3 


M 


N 


1 


U 


H 


5 


M 


L 


X 


* 1 



Figure 8-17 COBOL Variable-Length EBCDIC 
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Fixed-length EBCDIC records may also be blocked. In this file format, 
fixed-length EBCDIC records are written in groups (or blocks) . Each 
new block begins on a disk-block boundary. For tapes, each block 
starts a new physical magtape record. 

CODE SEGMENT: 



ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT filename ASSIGN TO DSK 
RECORDING MODE IS F. 

DATA DIVISION. 
FILE SECTION. 

FD filename VALUE OF ID DATA 

BLOCK CONTAINS .1 RECORDS. 
01 record- 1 DISPLAY -9. 



FIL' 



02 


field-1 


PIC 


9 ( 3 ) 


VALUE 


•194' . 


02 


field-2 


PIC 


X<5) 


VALUE 


"BDEFG" . 


02 


f ield-3 


PIC 


A(2) 


VALUE 


•MN' . 


02 


field-4 


PIC 


9(5) 


COMP •■••; 


*, VALUE 13796. 


02 


field-5 


PIC 


S9 ( 4 ) 


COMP 


-3 VALUE 1985. 


02 record-2 DISPLAY-9. 






02 


field-1 


PIC 


9(3) 


VALUE 


•762* . 


02 


field-2 


PIC 


X<5) 


VALUE 


•LANBH". 


02 


field-3 


PIC 


A(2) 


VALUE 


" AD ■ . 


02 


field-4 


PIC 


9(5) 


COMP- 


3 VALUE 76543. 


02 


field-5 


PIC 


S9 < 4 3 


COMP 


3 VALUE -9764. 


PROCEDURE DIVISION. 








WRITE record 


-1. 








WRITE record 


-2. 






— — < 



Figure 8-18 illustrates the record produced by the code segment shown 
above : 



BLOCK i 



WORD 

1 

2 
3 
4 



6 + 



i ; 3 



9(8 



7|9 



5' + 



BLOCK 



BLOCK 2 



■ 


6 


2 


L 


A 


N 


B 


r 


A 


B 


7|6 


5 J 4 


3 j + 

1 
i 


|9 
i 


7j6 


1 
1 











MH-S-047-79 



Figure 8-18 COBOL Blocked Fixed-Length EBCDIC 
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Variable-leng 
format, the r 
contains a 1- 
record. Thi 
byte? in the 
must be zer 
blocks. The 
blocking fac 
records conta 
count (in the 
bytes of data 
and the 4 
The following 
records: 



th EBCDIC records may be blocked as well. In this file 

ecord length may vary from record to record. Each record 

word Record Descriptor Word (RDW) at the head of the 

s word contains (in the left half-word) a count of all 

record and in the RDW itself. The right half of the RDW 

o. The records are read and written in groups called 

actual number of records in a block depends on the 

tor specified when the file was created. Each block of 

in a 1-word Block Descriptor Word (BDW) which contains a 

left half-word) of the bytes in the block. That is, the 

and the bytes of the RDW for each record in the block 

bytes of the BDW itself are included in the block count. 

illustrates the format of blocked variable-length EBCDIC 



WORD 








RECORD 
1 

3 
4 

D 


BLOCK 


1 


BDW 


20 





1 


2 


RDW 


10 







3 


A 

E 


B 


C D 




4 


F 


RDW 6 1 




5 








A B 


















201 


BDW 


28 


■ 



2 


202 


RDW 


6 







203 


A 


B 


RDW 10 




204 


I 





A B 




205 


C 


D 


E F 




206 


[ RDW 


8 


°l 




207 


A 


B 


C D 






BDW = 
RDW = 


BLOCK D 
RECORD 


ESCRIPTOR WORD 
DESCRIPTOR WOR 


MR-S-048-79 



Figure 8-19 Blocked Variable-Length EBCDIC 
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CODE SEGMENT: 



ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT filename ASSIGN TO DSK 
RECORDING MODE IS V. 

DATA DIVISION. 
FILE SECTION. 

FD filename VALUE OF ID 'DATA FIL' 

BLOCK CONTAINS 1 RECORDS. 
01 record-1 DISPl.AY-9. 

02 field-1 PIC S9(7) COMP-3 VALUE +9356127. 

02 field-2 PIC 9(7) COMP-3 VALUE 3907156. 

02 field-3 PIC 9(3) VALUE "198". 

02 field-4 PIC A(2) VALUE "MN". 

02 field- 5 PIC S9(9) COMP-3 VALUE -569138279 

02 field- 6 PIC X(6) VALUE "ABCDEF'. 



01 record-2 DISPLAY--?. 



02 field-1 

02 field-2 

02 field-3 

02 field-4 

02 field-5 



PIC S9(7) COMP-3 VALUE -3295865, 

PIC 9(7) COMP-3 VALUE 9378518. 

PIC 9(3) VALUE •196', 

PIC A(2) VALUE ■AL 8 . 

PIC 9(9) COMP-3 VALUE 569138279, 



02 field -6 PIC X(9) VALUE " ABCDEFGHI " . 
PROCEDURE DIVISION. 

WRITE record-1. 
WRITE record-2. 
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Figure 8-20 illustrates the record produced by the code segment shown 
on the previous page. 



WORD 



BDW 32 





ROW 28 





9^3 


5 i 6 


1 

1 I2 

1 


7| + 
1 


3 i9 


8i 7 


1 |s 
i 


6 1 + 
1 


1 


9 


8 


M 


N 


5l 6 


1 


1 
3 |8 

1 


2 ; 7 


9! - 


A 


B 


c 


D 


E 


F 1 











BLOCK 
1 



BDW 


35 





RDW 


31 







3| 2 


9i 5 

1 


8 i 6 


1 

5i- 

1 


9l3 


7 ! 8 


5! 1 

I 


"1 

8l + 
1 


1 


9 


6 


A 


L 


5] 6 


9| 1 


3|8 

1 


2! 7 

1 


9[ + 


A 


B 


C 


D 


E 


F 


G 


H 


1 













Figure 8-20 COBOL Blocked Variable-Length EBCDIC 



8.2.6 BINARY File Formats 

Binary records consist of contiguous 36-bit words. Each record starts 
and ends on a word boundary. Binary is the only recording mode which 
does not have a character set associated with it, and standard binary 
records may only be interpreted as COMPUTATIONAL and CQMPl binary 
numbers. However, it is possible to associate a character set with 
binary records by writing mixed-mode records. COBOL programs are 
capable of writing three mixed-mode binary formats. Each format is 
shown on the following pages. 
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8.2.6.1 COBOL ASCII Mixed-Mode Binary - 

CODE SEGMENT: 



ENVIRONMENT DIVISION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT filename ASSIGN TO DSK 

RECORDING MODE IS BINARY. 

DATA DIVISION. 
FILE SECTION. 



FD 
01 



filename VALUE OF 
BINARY-REC DISPLAY 



' DATA 
-7. 



F'lL 



02 
02 
02 
02 
02 
02 
02 



field-1 
field-2 
field-3 
f ield--4 
field--5 
field- 6 
field -7 



PIC 
PIC 
PIC 
PIC 
PIC 
PIC 
PIC 



S?<10) COMP VALUE 123456789 

S9(10) COMP-1 VALUE 1246.59 

X(7) VALUE •ABCDE12". 

9(11) COMP VALUE 1234567895 

9(3) VALUE '532". 

9(14) COMP VALUE 1234567895 

A(2) VALUE "LM". 



10. 
7892. 

4. 

4. 



Figure 8-21 illustrates the record produced by the code segment shown 
above : 

WORD 



1 


1234568910 


2 


1246.597892 


3 


A 


B C 


D 


E 


4 


1 


'I 


• 


L 


12345678954 


1 


F 


3 


2 | 


9 


1 12345678954967 — ■ 


,0 


LZ 


M 



Figure 8-21 COBOL Standard Binary and ASCII Mixed-Mode Binary 
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8.2.6.2 COBOL SIXBIT Mixed-Mode Binary - 
CODE SEGMENT: 



ENVIRONMENT DIVISION, 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT filename ASSIGN TO DSK 

RECORDING MODE IS BINARY. 

DATA DIVISION. 
FILE SECTION. 



FD 


fil 


eriame VALUE OF 'DATA FIL'. 


01 


BINARY-REC DISPLAY-6. 




02 


field-1 


PIC S9(10) COMP VALUE 12345678910. 




02 


field-2 


PIC S9<10) COMP-1 VALUE 1234.592175. 




02 


field-3 


PIC X(7) VALUE ■ABCDE12". 




02 


field-4 


PIC 9<11> COMP VALUE 12345678954. 




02 


field-5 


PIC 9(3) VALUE '532'. 




02 


field-6 


PIC 9(14) COMP VALUE 12345678954967. 


•««_— 


02 


field-7 


PIC A<2) VALUE *LM" . 



Figure 8-22 illustrates the record produced by the code segment shown 
above: 



WORD 



1 


12345678910 


2 


1234.592175 


3 


A 


B 


C 


D 


E 


1 


4 


'II 


: 


L 




12345678954 — . 


■ 


E 


3 


I 


: 


L 




12345678954967 — ■ 


,0 


iz 


M 1 



MRS-051-79 



Figure 8-22 COBOL Standard Binary and SIXBIT Mixed-Mode Binary 
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8.2.6.3 COBOL EBCDIC Mixed-Mode Binary - 

CODE SEGMENT: 



ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL . 
SELECT filename ASSIGN TO DSK 

RECORDING MODE IS BINARY. 

DATA DIVISION. 
FILE SECTION. 

FD filename VALUE OF 'DATA FIL'. 
01 BINARY-REC DISPLAY-9. 

02 field-1 PIC S9<10) COMP VALUE 12345678910. 

02 field-2 PIC S9<10) COMP 1 VALUE 1.246.597861. 

02 field-3 PIC X(7> VALUE " ABCDE12" . 

02 field-4 PIC 9(11) COMP VALUE 12345678954. 

02 field-5 PIC 9(3) VALUE "532". 

02 field-6 PIC 9(14) COMP VALUE 12345678954967. 

02 field-7 PIC A(2) VALUE "LM". 

02 field-8 PIC S9<5) COMP -3 VALUE 72539. 

02 field-9 PIC 9(8) C0MP--3 VALUE 36193586. 



Figure 8-23 illustrates the record produced by the code segment 
above : 



shown 



1 


12345678910 


2 


1246.597861 


3 


A 


B 


C 


D 


4 


E 


1 


2 




: 


LT 


12345678954 


,1 


■ 


P 


3 


' 


1 


: 


L^ 


12345678954967 


,1 


,0 


LZ 


M 


7J2 


1 

5 '3 

i 


11 


9 !- 
1 


;3 


6 ;1 


9 |3 


12 


5 J8 


6 j + 





Figure 8-23 COBOL Standard Binary and EBCDIC Mixed-Mode Binary 
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8.3 FILE ORGANIZATION AND ACCESS 

File organization refers to the manner in which the records are 
arranged in the file. Three types of file organization are available 
with COBOL-74: sequential, relative, and indexed-sequential . File 
organization is specified in a COBOL program by means of the 
ORGANIZATION clause. 

COBOL-74 provides three methods by which files can be accessed: 
sequential, random, and dynamic. File access refers to the way in 
which records from a file are read and/or written. The method of 
access for a file is specified in a COBOL program by the ACCESS MODE 
clause. The chart below shows file organizations and the methods by 
which they can be accessed. 



File Organization 


Method of Access 


ACCESS MODE 


Sequential 


Sequential 


SEQUENTIAL 


Relative 


Sequential 

Random 

Sequential and Random 


SEQUENTIAL 

RANDOM 

DYNAMIC 


Indexed 


Sequential 

Random 

Sequential and Random 


SEQUENTIAL 

RANDOM 

DYNAMIC 


RMS Indexed 


Sequential and Random 


DYNAMIC 



In the following sections, file organizations are described along with 
the methods by which they can be accessed and the manner in which 
these methods are specified. 

For RMS Indexed file organization reference Appendix I and/or the RMS 
Reference Manual (RMSREF.MEM) . 



8.-* SEQUENTIAL FILES 



Sequential file 
starting at t 
subsequent reco 
reside on any f 
magnetic tape, 
that is read 
tape or disk, 
storage, magne 
is necessary to 
preferable to 
(TOPS-10 only) 
input/output, 
be blocked to r 



s can only 
he first 
rd until th 
ile medium: 
and disk, 
and written 
Since tape 
tic tape i 
have rapid 
tape stor 
should not 
When the fi 
educe waste 



be read or wr 
record in th 
e end of the 

cards, pape 
If the file c 

frequently, 
storage is no 
s often used 

access to th 
age. Sequen 
be blocked un 
les are store 
d space cause 



itten seque 
e file and c 
file. Seq 
r tape, DECt 
ontains a la 
it should be 
rmally less 
for such fil 
e data, dis 
tial files 
less they ar 
d on magneti 
d by inter-r 



ntially, that is, 
ontinuing with each 
uential files can 
ape (TOPS-10 only) , 
rge amount of data 

stored on magnetic 
expensive than disk 
es. However, if it 
k storage can be 

on disk or DECtape 
e to be open for 
c tape, they should 
ecord gaps. 



A sequential file can be open for input/output (updating) , but it must 
be blocked for this purpose and must reside on disk. If a sequential 
file is open for input/output, a write to the file must be specified 
with the REWRITE statement. This causes writing of either the last 
record read (if the last operation was a READ) or the record after the 
last record written (if the last operation was a REWRITE). 
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8.5 RELATIVE FILES 

Relative files are arranged like sequential files, but differ from 
sequential files in the method by which they are accessed and by the 
devices on which they must be stored. The following requirements must 
be fulfilled for a file to be relative: 

1. It must be on a random-access device. 

2. It must be blocked. 

You can use the ACCESS MODE clause in the SELECT statement of the 
Environment Division to specify the access method. 

You must also specify the RELATIVE KEY in the Environment Division. 
The data-name specified by the relative key must be described in the 
Working-Storage section as a COMPUTATIONAL item of 10 or fewer 
characters. Its picture can only contain the characters S and 9 (or 
their equivalent, such as S9(4)). The RELATIVE KEY specifies to the 
object-time system the location of a record relative to the beginning 
of the file. That is, the first record in the file is record 1 and 
the last record in the file is 1+n where n is the number of remaining 
records in the file. 

Some records can be zero-length, that is, they do not have anything 
written in them because the file was created randomly. These records 
have RELATIVE KEYs and can be written but cannot be read until 
information is placed into them. If an attempt is made to read 
zero-length records, the INVALID KEY path is taken. 

A relative file can be created in one of two ways - randomly or 
sequentially. To create a file randomly (that is, by writing into 
scattered or random records), you need only open the file, move an 
integer value into the RELATIVE KEY for each record to be written 
randomly, and write each record. To create a relative file 
sequentially, open the file for output and begin writing records. The 
RELATIVE KEY defaults to the next record in the file, and the records 
are entered sequentially. No zero-length records are in the file if 
it is written sequentially. 



8.5.1 Sequential Access Of Relative Files 

A file with relative organization can still be accessed sequentially 
if you specify ACCESS MODE IS SEQUENTIAL in the File Control 
paragraph. Read operations on such a file retrieves succeeding 
records, starting with the first non-zero-length record on the file, 
and continuing with each successive non-zero-length record. Any 
zero-length records are skipped by the sequential read operation. A 
file opened for input or I/O can be repositioned using the START 
statement. An existing record can be updated using the REWRITE 
statement, assuming the file was opened for I/O and the immediately 
preceding I/O operation was a READ. A sequential READ or WRITE 
updates the file's RELATIVE KEY value to indicate the current record 
position. 
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8.5.2 Random Access Of Relative Files 

A relative file may be accessed at scattered locations by specifying 
the clause ACCESS MODE IS RANDOM. In this case the record accessed is 
the one indicated by the current value of the RELATIVE KEY. The first 
record on the file is assigned the relative key of 1, with succeeding 
records numbered 2, 3, 4, .... Therefore, before you execute a random 
I/O operation, you must specify the record by moving the value you 
desire into the RELATIVE KEY for the file. Non-zero-length records 
may be updated by the use of the REWRITE clause, assuming that the 
file is open for I/O and that the previous I/O operation was a READ to 
the file. 

The INVALID KEY condition occurs if: 

1. A READ is made to a zero-length record 

2. A WRITE is made to a non-zero-length record 

3. A REWRITE is made to a zero-length record, or the last I/O 
operation before the REWRITE was not a valid READ to the file 



8.5.3 Dynamic Access Of Relative Files 

Often you will want to access a file both randomly and sequentially. 
You may accomplish this by indicating that your file's ACCESS MODE IS 
DYNAMIC. If you specify this mode, you may read your relative file 
randomly in the normal way, then issue a READ NEXT command and switch 
to sequential access.. This READ statement acts just as it would in 
sequential access mode, obtaining the next non-zero-length record. As 
in sequential mode, the RELATIVE KEY will be reset to indicate the 
relative location of the record just obtained. The first READ NEXT 
you issue will use the current value of the RELATIVE KEY as its 
starting point. You may alter this by using the START verb to 
position the record pointer in the file. You may also update records 
using the REWRITE verb, with the same considerations as before. 
Figure 8-24 presents an example program which positions the file 
pointer to a starting location and updates records sequentially 
thereafter . 
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ENVIRONMENT DIVISION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT RELOUT ASSIGN TO DSK 
ORGANIZATION IS RELATIVE 
ACCESS MODE IS DYNAMIC 
RELATIVE KEY IS RELKEY. 



DATA DIVISION. 

FILE SECTION. 

FD RELOUT BLOCK CONTAINS 8 RECORDS DATA RECORD IS RELREC 

VALUE OF ID IS "RELFILDAT" 
01 RELREC PIC X(80) 



WORKING-STORAGE SECTION. 

77 RELKEY PIC 9(10) VALUE IS 1 



PROCEDURE DIVISION. 
START. 

OPEN INPUT-OUTPUT RELOUT. 



UPDATE. 

MOVE 5 TO RELKEY. 

START RELOUT, INVALID KEY GO TO STRT-ERR. 

READ RELOUT NEXT, AT END GO TO FINISH. 



REWRITE RELREC, INVALID KEY GO TO ERROR. 
GO TO UPDATE. 



FINISH. 

CLOSE RELOUT, STOP RUN. 
ERROR. 

DISPLAY "ERROR REPLACING RECORD", DISPLAY RELREC. 

GO TO FINISH. 
STRT-ERR. 

DISPLAY "ERROR IN START - KEY=" , RELKEY. 

GO TO FINISH. 

Figure 8-24 Statements Used to Sequentially Access a Relative File 

A relative file can be treated as a sequential file. That is, you can 
declare its ACCESS MODE as SEQUENTIAL and read or write the file 
sequentially. However, the file cannot be read or written randomly 
when it has been declared as' ACCESS MODE SEQUENTIAL. If you wish to 
be allowed to access the file both randomly and sequentially you 
should specify the ACCESS MODE IS DYNAMIC option. 
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8.6 INDEXED-SEQUENTIAL FILES 

Indexed-sequential files (also called ISAM files) are files in which 
records are accessed through a hierarchy of indexes according to a key 
within each data record. This file organization is commonly used for 
applications in which the programmer wishes to identify and access 
records by the contents of a data field (the key) rather than the 
relative location of the record within the file. Some examples of 
applications for which this file organization is commonly used are: 

o payroll (key is employee number) 

o inventory control (key is part number) 

o production control (key is job or batch number) 

An indexed-sequential file consists of two files: the data file 
containing the actual data and the index file containing pointers to 
record keys within the data file. The location of the record key 
within each record is specified when the file is built. To build an 
indexed-sequential file, you must provide a sequential file and some 
necessary information to the ISAM program. (See Section 5.9, 
ISAM - Indexed-Sequential File Maintenance Program.) ISAM then copies 
the data from the sequential file and creates a data file and an index 
file to reference the data file. 

All reading and writing of the index file is performed by the 
object-time system; you need not be concerned with this function. 
When using indexed-sequential files, you need only specify which 
record is to be read, written, rewritten, or deleted. The object-time 
system performs all searching, insertion, deletion, and updating of 
both the index and data files. 

Indexed-sequential files must be accessed from disk. Also, because 

each indexed-sequential file is actually two files, two software I/O 

channels are required - one for the data file and one for the index 
file. 



8.6.1 Data File 

The data file can be recorded in EBCDIC, SIXBIT or ASCII; in any 
mode, the file must be blocked. When building an indexed-sequential 
file (by means of the ISAM utility program) , you must provide a 
sequential file that contains record keys in the same relative 
location in each record. You are advised to sort the file in advance 
to insure that the most efficient index is built. Each record must 
have a unique key and the keys must be arranged in ascending order 
(numeric, alphabetic, or alphanumeric). You can indicate to the ISAM 
program that some records in each block are to be left empty and some 
empty blocks should be added to the file. The empty records and 
blocks are to allow for insertion or addition of new records in the 
file. 

When a program processes the indexed-sequential file, insertions and 
additions are made by the object-time system. Records are inserted in 
a block in ascending order. When there are no empty record slots in 
the block, the block is split into two more or less equal blocks, and 
the record is added to the appropriate block. New blocks created by 
insertions or additions are placed in the empty blocks that were 
allocated when the file was built. If empty records and blocks were 
not provided when the file was built, the object-time system will 
request additional blocks from the monitor as needed. If the monitor 
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cannot allocate additional blocks (that is, because the user's quota 
on the file structure is exceeded or the system's limit was reached), 
an error message is issued. 

The format of the data file is similar to that of relative and 
sequential files, with the following exceptions. 

1. The right half of the header word contains the size of the 
record in bytes. The left half contains a version number. 
Only the version number of the first record of a block has 
any meaning; it pertains to all records for that block. All 
records (ASCII, SIXBIT, and EBCDIC) have a header word. 

2. All records are line-blocked; they occupy an integral number 
of words. ASCII records always end with a single carriage 
return/line feed pair. 

3. For ASCII records, the left half of the header word contains 
a version number, bits 18 through 34 contain the size of the 
record in bytes, and bit 35 is always 1. 

Figure 8-25 shows the structure of an ISAM data file. 



IN .IDA FILE 



1 1 1 1 

DATA 
l 1 1 i 


1 1 1 1 1 1 

BLOCK 

III ii i 


S 



.IDA BLOCK STRUCTURE 



DATA RECORDS 



DATA RECORD STRUCTURE 



HEADER WORD 



BLOCK NUMBER 


NO. OF CHARACTERS 
(SIXBIT OR ASCII) 



DATA WORDS 



SIXBIT OR ASCII DATA (NOTE ON PADDING CHARACTERS 
ZEROES FOR ASCII, AND SPACES FOR SIXBIT) 



MR-S053-79 



Figure 8-25 ISAM Data File Structure 



8.6.2 Index File 

The index file is created by the ISAM program from the description of 
the input data file and parameters specified by the user. It contains 
up to ten levels of indexes, the lowest of which contains pointers to 
the record keys in the data file. Each successive level of index 
points to all of the blocks containing the next lower-level index. 
The highest level index is contained in one block and points to the 
blocks containing the next lower-level index. Index levels are 
provided so that the entire index need not be searched each time that 
a record key is accessed. When a record key is accessed, the 
object-time system reads the highest level index to find which 
lower-level index contains a pointer to the approximate location of 
that key. The block of the next lower-level index that contains the 



8-28 



FILE FORMATS 



approximate location of the key is then searched. If this is the 
lowest level index, it points to the first record of the data block in 
which the record is stored. The data block is then searched for the 
appropriate record key, and the record is made available. If this is 
not the lowest level index, the next lower-level is searched until the 
lowest level is reached. Figure 8-26 illustrates the search. 



POINTERS 
TO DATA 
BLOCKS 



POINTERS 
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LEVEL 
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INDEX FILE 
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INDEX LEVEL 
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DATA BLOCK 1 
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DATA BLOCK 4 



DATA FILE 



Figure 8-26 Locating a Record in an Indexed-Sequential File 
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The format of the index file is more complex than that of the data 
file. Figure 8-27 shows the structure of the index file. 



IN .IDX FILE 



STATS 
BLOCK 


SAT 
TABLE 


I 1 1 1 

INDEX 
I i i i 


1 1 1 1 1 1 

BLOCKS 

i i I l i I 



.IDX BLOCK STRUCTURE 



HEADER WORD 1 



HEADER WORD 2 



INDEX LEVEL 


NO. OF CHARS IN BLOCK 
(AS IFSIXBIT) 



VERSION NO. OF THIS BLOCK 



INDEX ENTRIES 



INDEX ENTRY STRUCTURE 



WORD 1 
WORD 2 
WORDS 3-11 



AS SPECIFIED IN ISAM DIALOG 



POINTER TO NEXT LOWER LEVEL OF INDEX OR DATA 



VERSION NO. OF BLOCK POINTED TO 



VALUE OF KEY 



COMPUTATIONAL IF NUMERIC 
OR SIXBIT CHARACTERS 



MR-S-055 79 



Figure 8-27 ISAM Index File Structure 

Each index block in an indexed-sequential file is written as 
were a block of a SIXBIT file. The format of the block is: 

header word 1: 



if it 



is the header word. The right half contains 
the size of the index block in characters, as 
if it were SIXBIT (that is, six characters 
per word) . The left half contains a number 
representing the level of the index (the 
lowest level is 0) . 

contains the version number. This is 
initially set to by the ISAM program, and 
is incremented by 1 whenever this block is 
divided due to the insertion of an entry when 
a WRITE is executed. 

Following word 2 are the index entries. Each entry has the format: 



header word 2 



word 1: 



word 2: 



contains the pointer to a data block (if this 
is index level 0) or a pointer to the next 
lower-level index block (if this is index 
level 1 or higher). 

contains the version number of the index or 
data block to which the index entry points. 
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words 3-11: contain the value of a key. If the key is 

nonnumeric, it extends over as many words as 
are necessary. If the key is numeric, it is 
kept in COMPUTATIONAL form (even if the 
record key for the file is DISPLAY) . It is 
one word if 10 or fewer digits are in the 
key; it is two words if 11 or more digits 
are in the key. If the key is 
COMPUTATIONAL-1 (floating point) , it is one 
word, 

NOTE 

Take special care to describe your key 
fields in exactly the same way in both 
the ISAM program and your COBOL program. 
For example, if you describe your key 
field as S9(10) DISPLAY to JSAM, you 
should describe it the same way in your 
COBOL program. By using the same 
descriptions you will ensure that the 
same amount of storage is generated in 
both the ISAM file and its record area 
in memory. 

Within the index file, in addition to the index blocks, are two other 
blocks: the statistics block and the storage allocation table. The 
statistics block is a header containing all the necessary information 
about the index file and the data file. Included in these statistics 
are: the name and extension of the data file, the number of levels in 
the index, the blocking factor, and a description of the record key. 
The storage allocation table shows which data blocks are in use and 
which are free. There are as many blocks of this table as are 
necessary to contain this information. 

In general, an indexed-sequential file should be constructed so that 
it does not require more than three levels of index because the more 
levels of index the slower the access of the data will be. Indeed, it 
is usually a simple matter to restrict a file of moderate size to two 
levels of index. For example, if the maximum file is to be 200,000 
records, the blocking of the data file could be 20 records per block 
and that of the index file 100 entries per block. Since 

100*100*20 = 200,000 

the file will never need more than two levels of index if it is 
occasionally maintained using the ISAM program. (See Section 7.1) 
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The COBOL-74 simultaneous update facility allows sequential, relative, 
or indexed-sequential data files to be updated concurrently by two or 
more running jobs. That is, it is possible for several truly 
independent jobs to modify, insert, and delete records in the same 
data files without loss of information or file integrity. 
Simultaneous update, under the control of COBOL-74, allows multiple 
users to share resources at the file level while having exclusive 
control of a portion of that resource at the record level. 

You should also refer to Part 2 of this manual, COBOL-74 Language 
Reference Material, for the simultaneous update features of the OPEN, 
RETAIN, and FREE statements. To declare in your program that a file 
is being processed concurrently with other programs, use the 
appropriate syntax available with the OPEN statements. (See Section 
9.1.1, The OPEN Statement.) The OPEN statement identifies the file as 
being open for simultaneous update and excludes 
non-simultaneous-update users from accessing it until you are willing 
to release it. The file is not released until you expressly close it 
by issuing a CLOSE statement. 

To gain exclusive control of individual records within the file, use 
the RETAIN statement. (See Section 9.1.2, The RETAIN 
Statement.) This statement inhibits any other user from accessing the 
retained records until you have finished processing them. Records can 
be released either: 

• Explicitly, by issuing a FREE statement (see Section 9.1.3, 
The FREE Statement) . 

• Implicitly, by exhaustion of the verb selection specified on 
the preceding RETAIN statement. 

You are advised to make careful use of the RETAIN statement in order 
to avoid the two most common problems that can occur using 
simultaneous update. The first, buried update, occurs when two users 
are updating the same record concurrently and one user's update is 
overlaid by the other's. (See Figure 9-1, The Problem of Buried 
Update.) The second is deadly embrace. It occurs when two users make 
conflicting demands upon the file resources and neither is willing or 
able to yield to the other. This results in both users being stalled 
waiting for the other to relinquish control. (See Figure 9-2, The 
Problem of Deadly Embrace.) Both of these problems can be avoided by 
carefully declaring the resources needed with a RETAIN statement prior 
to performing any I/O operations on a shared file. 
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FILE RESOURCE IS AVAILABLE TO ALL USERS INDISCRIMINANTLY 


1. 


PROGRAM A 

ACCEPT KEY-A 
READ FILE-A 










2. 


PROGRAM B 

ACCEPT KEY-A 
READ FILE-A 










3. 


PROGRAM A 




REWRITE RECORD-A 








4. 


PROGRAM B 




REWRITE RECORD-A 


NOTE: PR 


DGRAM A'S UPDATE IS NOW LOST. 





Figure 9-1 The Problem of Buried Update 
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— ■ ! ; — 

INDIVIDUAL FILE RESOURCES ARE AVAILABLE TO ONLY ONE USER ATN 
ONE TIME. 


1. 


PROGRAM A 




ACCEPT KEY-A 

READ FILE-A WITH LOCK 








2. 


PROGRAM B 

ACCEPT KEY-B 

READ FILE-B WITH LOCK 










3. 


PROGRAM A 




ACCEPT KEY-B 

READ FILE-B WITH LOCK 


(PROGRAM A IS DENIED ACCESS TO KEY-B OF FILE-B) 


4. 


PROGRAM B 




ACCEPT KEY-A 

READ FILE-A WITH LOCK 


(PROGRAM B IS DENIED ACCESS TO KEY-A OF FILE-A) 

NOTE: PROGRAMS A AND B ARE NOW STALLED, AS EACH HAS A LOCK ON A 
RESOURCE THAT THE OTHER WANTS, AND NEITHER CAN GIVE UP THE 
RESOURCE THAT THEY ALREADY HAVE A LOCK ON. 



Figure 9-2 The Problem of Deadly Embrace 



9.1 PROGRAMMING CONSIDERATIONS 

Simultaneous update allows you to project the usage you want at both 
the file and record level. It also allows you to project the usage 
you will allow others to have while you have control of the file. A 
central clearing house in the COBOL-74 object-time system correlates 
these projections and takes one of three actions with respect to the 
intent of each user: 

• Allows the process to proceed 

• Suspends the process until the required resource is available 



• Returns with a message to the effect that the process 
proceed at this time 



cannot 



You project file usage by specifying which of the COBOL-74 
input/output verbs you will execute during your tenure of the file or 
record and which you will allow others to execute. Once allowed to 
proceed, you are bound by the object-time system to act within the 
scope of your projections and are stopped if you attempt to do 
otherwise. For example, if you open a file for a read operation and 
then issue a write you will be stopped from doing so. See Figure 9-3 
for an outline of how resources can be projected for simultaneous 
update. 
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PROCEDURE DIVISION. 
BEGIN-PARAGRAPH. 

OPEN 1-0 FILE-NAME-1 FOR [verb selection] (File-wide spec- 
ALLOWING OTHERS [verb selection] ification of 



UNAVAILABLE [Object statements]. 



resources) 



LOOP-PARAGRAPH. 

[Generate key values for records to be (Specification 

retained] of record re- 

RETAIN FILE-NAME-1 RECORD KEY . . . sources to be 

FOR [verb selection] retained and 

UNTIL FREED manipulated 

within the 
UNAVAILABLE [Object statement] . context of a 

user-defined 
1-0 verb selection as appropriate. transaction) 

Including READ, WRITE, DELETE, 
REWRITE. 

FREE [appropriate file records] . 

GO TO LOOP-PARAGRAPH. 
END-OF-JOB. 

CLOSE FILE-NAME-1 ... (Release of 

file-wide 
resource) 



Figure 9-3 Projecting Resources For Simultaneous Update 



9.1.1 The OPEN Statement 

The OPEN statement is the vehicle by which you declare a file is being 
used for simultaneous update. It allows you to specify: 

• Your projected usage of the file in terms of the I/O 
operations you wish to perform 

• The projected usage you are willing to allow others in terms 
of the I/O operations they are allowed to perform 

Figure 9-4 shows the general format of the OPEN statement. 
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) INPUT \ 
\ OUTPUT f 



f il e-name-1 



f REVERSED "if fi1onamo? [" REVERSED 1 

| WITH NO REWIND | ' e-name-^ | WITH NO REWIND | 



<NO 
\ INPl 



NPUT-OUTPUT 



I file-name-3 



/ BMD \ 
I REWRITE | 
\ WRITE } 
/ DELETE i 
\ ANY VERB / 



/ READ 
I REWRITE 
AND { WRITE 
/ DELETE 



ANY VERB , 



! NONE 
READ ■ 
5rITE TE ' 
DELETE 
ANY VERE 



AND 



' NONE 
READ 
REWRITE 
WRITE 
DELETE 
ANY VERB J 



OPEN < 



file-name-4 



FOR 



READ 
REWRITE 
WRITE 
DELETE 
ANY VERB , 



AND 




I NONE 
READ 
WRlfr~ 
DELETE 
ANY VERB , 



C EXTEND Dfilename-5 C filename-6 3 ... 

[_ UNAVAILABLE statement-1 C .statement-2 ~} . . . J . 



AND 



" NONE 

READ 

REWRITE 

WRITE 

DELETE 
■ ANY VERB , 



Figure 9-4 The OPEN Statement 
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The following rules apply to the use of an OPEN statement for files 
being processed under simultaneous update: 

1. To open a file under simultaneous update, the ALLOWING OTHERS 
clause must be specified. 

2. Every user, that is, every program expecting to process the 
file concurrently, must either open the file under 
simultaneous update or for input only. Other uses will be 
denied access. 



NOTE 

File access is determined on a first 
come first served basis. Therefore, if 
the first user opens a file for 
simultaneous update all others must 
likewise open it under simultaneous 
update. Conversely, if a file is open 
for normal processing, users attempting 
to open it under simultaneous update 
will be denied access. See Figure 9-5, 
Competing For Program Access to Files. 

3. The file must be OPEN in I/O mode. 

4. The COBOL-74 I/O verbs you intend to execute must be entered 
following the key word FOR. 

5. The COBOL-74 I/O verbs you are willing to allow others to 
execute must be entered following the key words ALLOWING 
OTHERS, 

6. All files to be opened for simultaneous update must be opened 
in the same OPEN statement. Multiple OPEN statements for 
simultaneous update are not allowed. Therefore, before 
another file can be opened for simultaneous update, the 
previously opened files must be closed. This prevents deadly 
embrace at the file level. 

7. You can use the same OPEN statement to open files for 
simultaneous update as well as for normal processing. 

8. A maximum of sixteen (16) files can be opened by a single 
OPEN statement. 

9. If one or more of the files being opened for simultaneous 
update is not available in the mode specified, the program 
requesting the OPEN is suspended until the requested file is 
available. Those files, if any, that were opened during the 
process remain open. Control is not returned to the program 
until all of the requested files are open. If the 
UNAVAILABLE clause is specified, no file is opened, even 
though available, until all of the requested files are 
available. In this case, the statements following the 
UNAVAILABLE clause are executed. 

10. The I/O verbs specified in the OPEN statement are the only 
verbs that can be used to process the file. Likewise, the 
I/O verbs you allow others to use are the only ones available 
to them. Any attempt to use verbs other than the ones 
specified will cause the object-time system to abort the 
program. 
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Example 9-1 

OPEN I/O FILE-A FOR READ AND WRITE, 
ALLOWING OTHERS READ AND WRITE. 

Example 9-2 

OPEN OUTPUT FILE-A, LIST, 

INPUT-OUTPUT FILE-B FOR READ AND REWRITE, 

OTHERS ANY 

FILE-C FOR READ, 

OTHERS READ AND REWRITE, 

FILE-D FOR ANY, 

OTHERS NONE, 

INPUT FILE-E WITH NO REWIND, 

1-0 FILE-F, FILE-G FOR WRITE. 

Example 9-3 

OPEN 1-0 FILE-A FOR READ AND WRITE, 
OTHERS ANY, 

UNAVAILABLE OPEN 1-0 FILE-A FOR READ, 
OTHERS ANY, 
UNAVAILABLE STOP RUN. 
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WITH AND WITHOUT SIMULTANEOUS UPDATE 



OPEN FILE-A FOR 

SIMULTANEOUS UPDATE 



PROGRAM 8 



OPEN FILE-A FOR 
INPUT ONLY 



PROGRAM C 



OPEN FILE-A WITHOUT 

SIMULTANEOUS UPDATE 




FILE-A 



PROGRAM C 



OPEN FILE-A WITHOUT 

SIMULTANEOUS UPDATE 



OPEN FILE-A UNDER 

SIMULTANEOUS UPDATE 



^f 



Figure 9-5 Competing For Program Access to Files 



9.1.2 The RETAIN Statement 

The RETAIN statement allows you to gain exclusive control of 

individual records within a file that was previously opened for 

simultaneous update. Figure 9-6 shows the general format of the 
RETAIN statement. 



9-8 



SIMULTANEOUS UPDATE 



RETAIN file-name-1 RECORD 



READ 
REWRITE 
READ- REWRITE 
FOR < DELETE AND 

WRITE 

READ-WRITE 
ANY VERB 



,file-name-2 RECORD 



READ 



KEY 



FOR 



REWRITE 

READ-REWRITE 

DELETE 

WRITE 

READ-WRITE 

ANY VERB 



AND 



KEY 



identifier- 1 
literal-1 



READ 

REWRITE 

READ-REWRITE 

DELETE 

WRITE 

READ-WRITE 

ANY VERB 



identifier-2 
literal-2 



READ 

REWRITE 

READ-REWRITE 

DELETE 

WRITE 

READ-WRITE 

ANY VERB 



[ until freed ] 



[ UNTI 



L FREED 



UNAVAILABLE statement-1 [.statements] 

Figure 9-6 The RETAIN Statement 
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The following general rules apply to the use of the RETAIN statement. 
For a description of how the RETAIN statement is used for the 
individual file types (sequential, relative, indexed-sequential) see 
Sections 9.1.4, 9.1.5, and 9.1.6 respectively. (See also the COBOL-74 
Language Reference Material, Part 2 of this manual.) 

1. The file(s) named in a RETAIN statement must have been 
previously opened under simultaneous update. If not, the 
object-time system will abort the program. 

2. A RETAIN statement must be given before any record on a file 
opened for simultaneous update can be accessed. 

3. You can use the same RETAIN statement to reserve records on 
sequential, relative, or indexed-sequential files. The I/O 
verbs selected, however, must conform to those allowed for 
the file. 

4. Using the RETAIN for, WRITE, DELETE, or ANY VERB statement 
with an indexed-sequential file locks the entire file, not 
just the record. 

5. All records to be retained concurrently must be retained with 
the same RETAIN statement. Once records have been retained, 
no other records may be retained until the currently retained 
records are freed. 
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6. The retention of records is purely a logical operation and 
does not involve any actual I/O. You may, in fact, retain 
nonexistent records. Obviously, any attempt to read or 
rewrite any of these records could result in an I/O error 
that could cause your program to be terminated. (See note 
6.) 

7. A RETAIN statement, consistent with note 5, will not cause an 
AT END condition. This can only be caused by a READ 
statement. The RETAIN statement in this case merely retains 
a nonexistent record after the last one in the file. 

8. If you retain a record for a READ operation, other users are 
allowed concurrent access to that record for READ. If you 
retain a record for any other type of I/O, all other users 
are denied access until you have freed it. 

9. The I/O usage you specify in a RETAIN statement must agree 
with the usage you specified in the OPEN statement for the 
file. For example, if you want to retain a record for a 
WRITE operation, you must have specified WRITE in the OPEN 
statement for the file. This holds true as well for the ANY 
VERB option. The key words ANY VERB must appear in the OPEN 
statement if you want to use them in a RETAIN statement. 

10. The records named in the RETAIN statement are automatically 
freed upon execution of the I/O verbs specified in the FOR 
clause. The only exceptions are: 

a. If the ANY VERB option is specified in the FOR clause, a 
FREE statement must be issued to release a record. 

b. If the UNTIL FREED option is specified, a FREE statement 
must be issued to release a record. 



NOTE 

The UNTIL FREED option allows you to 
retain several logically related 
records for processing without their 
being automatically freed by the I/O 
verbs. 

c. If an I/O verb is specified in a RETAIN statement but 
that verb is not executed, the record will not be freed 
until a FREE statement is issued. 

11. Using the RETAIN for WRITE, DELETE, or ANY VERB statement 
causes the program to look for an ISAM file. 

12. The KEY phrase allows you to specify a particular record or 
more than one record in a file. If no key is provided, the 
next record is assumed for sequential files and the current 
value of the RELATIVE or RECORD KEY is used for indexed or 
relative files. 

13. The value of the key may be specify by any identifier that 
can be subscripted, qualified, or both. Its usage, however, 
must be computational. For example: 

RETAIN FILE-A RECORD 

KEY PAY-REC OF RECORD-KEYS 
FOR READ-REWRITE. 
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It may also be a positive numeric literal containing from 1 
to 10 digits. You can, for example, enter: 

RETAIN FILE-A-RECORD 
KEY 123 
FOR READ-REWRITE. 

The optional word RECORD may be used as a reminder that you 
are retaining records, not files. For example: 

RETAIN FILE-A RECORD FOR READ. 

retains the next record in FILE-A. 



9.1.3 The FREE Statement 

The FREE statement explicitly frees records that have been retained 
for simultaneous update. Figure 9-7 shows the general format of the 
FREE statement. 



file-name-1 - 



RECORD 



KEY 



EVERY RECORD 



FREE < 



file-name-2 



EVERY RECORD 



identifier^ 
literal-1 



RECORD 



KEY 



EVERY RECORD 



identif ier-2 
literal-2 




[ NOT RETAINED statement-1 [ statement^] ... ] 



Figure 9-7 The FREE Statement 

The following general rules apply to the use of the FREE statement. 
For a description of how the FREE statement is used with the 
individual file types, sequential, relative, and indexed-sequential , 
see Sections 9.1.4, 9.1.5/ and 9.1.6 respectively. (See also the 
COBOL-74 Language Reference Material, Part 2 of this manual.) 

1. The FREE statement is required to explicitly release records 
that have not been implicitly released by an I/O statement. 
This could occur when: 

a. The RETAIN statement contains the UNTIL FREED phrase 

b. An I/O statement is not issued after the RETAIN statement 

c. The FOR clause of the RETAIN statement specifies ANY VERB 
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2. The EVERY RECORD phrase allows you to free all of the records 
retained or just those of a particular file. It saves you 
from having to issue a separate FREE statement for every 
record that was retained. 

3. When the EVERY RECORD phrase is used, the NOT RETAINED 
condition will occur only if no records are currently 
retained or if no records in a specific file are retained. 

4. The NOT RETAINED phrase specifies the COBOL statements to be 
executed in the event that one or more of the record (s) you 
are attempting to free have not been retained. If this 
phrase is not specified, the program continues and you are 
not notified of any possible error. 

5. A FREE statement issued to a file that was not opened for 
simultaneous update will cause the statements following the 
NOT RETAINED phrase, if present, to be executed. If the NOT 
RETAINED phrase was not specified in this case, the program 
continues and you are not notified of a possible error 
condition. 

6. A single FREE statement can be used to free records retained 
from all open files, regardless of file type. 

7. All records, regardless of how they were retained, are 
automatically freed when the file is closed. 



9.1.4 Accessing Sequential Files 

The following sections describe how to use the RETAIN and FREE 
statements to access records in a sequential file. 



9.1.4.1 Basic Reading - The simplest way to read a sequential file 
opened for simultaneous update is to execute pairs of statements like 
this: 

RETAIN FILE-A FOR READ. 

READ FILE-A AT END GO TO EOJ . 

The RETAIN statement projects your intent to read the next record of 

FILE-A. The READ statement delivers the next record to the file's 

record area in memory, and automatically frees it for use by other 
users . 



9.1.4.2 Basic Writing - Basic writing of a sequential file opened for 
simultaneous update is analogous to basic reading. For example, you 
could use code that looks like this: 

RETAIN FILE-A FOR WRITE. 

WRITE FILE-A-RECORD. 

In this case, FILE-A-RECORD is written out to FILE-A and automatically 
freed for access by other users. 
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9.1.4.3 Basic Updating - To update the next record in a file open for 
simultaneous upate, you can use statements that look like this: 

RETAIN FILE-A FOR READ-REWRITE. 

READ FILE-A AT END GO TO EOJ . 



REWRITE FILE-A-RECORD. 

FILE-A-RECORD is automatically released upon execution of the REWRITE 
statement because both verbs named in the RETAIN statement have been 
executed. If only one or none of the verbs were executed, the record 
would not have been freed and any attempt to RETAIN any other records 
would fail. 

If, however, your application is such that you may or may not want to 
update a record once it has been read, code of this nature could be 
used : 

RETAIN FILE-A FOR READ-REWRITE. 

READ FILE-A AT END GO TO EOJ. 



IF CHANGED REWRITE FILE-A-RECORD 
ELSE FREE FILE-A. 



9.1.4.4 Sophisticated Access to Sequential Files - There are two 
reasons why the basic reading, writing, and updating of sequential 
files as outlined in Sections 9.1.4.1, 9.1.4.2, and 9.1.4.3 will not 
be sufficient for some applications: 

1. Performance 

2. Logically related records 

Each time you retain a record and that record happens to be already in 
your buffer, it is necessary to refill that buffer from mass storage 
to make sure that you have the very latest copy. Similarly, each time 
a record that you have written or rewritten is implicitly or 
explicitly freed, you must be certain that it is the very latest copy, 
and that no other user has updated that record in the interim. These 
considerations have little effect on the performance of relative or 
indexed-sequential files accessed randomly, but the effect on 
sequentially processed files is profound. Processing a file with a 
blocking factor of ten as suggested in Sections 9.1.4.1, 9.1.4.2, or 
9.1.4.3, would require an order of magnitude more input/output 
overhead than it would if you were not using simultaneous update mode. 
This is the performance reason for using more sophisticated coding 
techniques. 

Sometimes, several records in a file are logically related and must be 
updated together. For example, a header record and subsequent trailer 
records might be logically related in such a way that the trailer 
records cannot be changed unless the header record remains static. 
But with the basic techniques outlined in Sections 9.1.4.1, 9.1.4.2, 
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and 9.1.4.3, only a single record can be retained at a time. This is 
the logically-related-records reason for more sophisticated coding 
techniques. 

The first step in providing for more sophisticated code is the 
introduction of a notation for addressing the records of a sequential 
file. The notation is this: record is defined as the next record 
to be read or written. Records 1, 2, 3, through n are defined 
relative to record 0. 



NOTE 

If you have just written a record, the 
next record to be written is the one 
following it. If you have just read a 
record, however, the next record to be 
written is the one just read. 
Therefore, if you have just read a 
record and then you retain record for 
WRITE, you have in effect retained the 
record just read. If, however, you have 
just read a record and then you retain 
record for READ-WRITE, you have 
effectively retained the next record in 
the file. 

Sequential file users should code for performance by retaining several 
records at a time. Performance is optimal if the number of records 
retained is a multiple of the blocking factor and the execution of the 
RETAIN statement is synchronized with logical block boundaries. A 
RETAIN statement for a file whose blocking factor is 5 might look like 
this: 

RETAIN FILE-A KEY FOR READ, 

FILE-A KEY 1 FOR READ, 

FILE-A KEY 2 FOR READ, 

FILE-A KEY 3 FOR READ, 

FILE-A KEY 4 FOR READ. 

This would then be followed by READ and/or FREE statements until all 
records have been freed. Subsequent FREE statements use the same 
notation for freeing records as was used for retaining them. Thus 

RETAIN FILE-A KEY FOR READ. 

FILE-A KEY 1 FOR READ. 

READ FILE-A AT END GO TO EOJ. 



FREE FILE-A KEY 1. 

causes the second record of the pair to be freed, not the next one in 
the file. 
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Providing a notation for referencing several records of a sequential 
file is not enough for updating several logically related records 
together. It is also necessary to retain a record, even though you 
are through with it, until all of the related records have been 
processed. The UNTIL FREED phrase is provided for this purpose. It 
allows you to defeat the automatic freeing of records and retain them 
until you are ready to expressly free them. Also, to facilitate the 
freeing of multiple records, the EVERY RECORD phrase is provided. It 
allows you to free every record retained or every record in a 
particular file. Thus, to update three logically related records in a 
particular file, you can code: 



RETAIN FILE-A KEY FOR READ-WRITE 

UNTIL FREED, 

FILE-A KEY 1 FOR READ-WRITE 
UNTIL FREED 

FILE-A KEY 2 FOR READ-WRITE. 

READ FILE-A AT END GO TO EO J . 



WRITE FILE-A-RECORD. 

READ FILE-A AT END GO TO EOJ, 

WRITE FILE-A-RECORD. 

READ FILE-A AT END GO TO EOJ, 

WRITE FILE-A-RECORD. 
FREE FILE-A EVERY RECORD. 



You could also use the ANY VERB phrase to accomplish the same results. 
For example: 

RETAIN FILE-A KEY FOR ANY VERB 

results in your having to expressly free the record when you have 
finished with it. 

When retaining records, the program will normally be suspended if any 
of the requested files or records are unavailable. You will not be 
notified of this suspension unless you have provided the UNAVAILABLE 
phrase as part of the RETAIN statement. The UNAVAILABLE phrase allows 
you to specify a procedure to be followed in the event a record or 
file is unavailable at the time your program attempts to access it. 
For example: 

RETAIN FILE-A KEY FOR ANY VERB 

UNAVAILABLE PERFORM UNAVAIL-RTN. 

This instructs the object-time system to execute the statement 
following the word UNAVAILABLE in the event that the file (FILE-A) or 
the next record in the file is unavailable at the time the RETAIN 
statement is executed. 
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Similarly, if you execute a FREE statement for a record or records 
that are not currently retained by your program, the object-time 
system will proceed to the next instruction in your program as though 
the condition did not exist. If you wish to be informed of this 
condition, you must provide the NOT RETAINED phrase in the FREE 
statement. The NOT RETAINED phrase causes the object-time system to 
execute the procedures immediately following the words NOT RETAINED. 
A FREE statement of this kind might look like this: 

FREE FILE-A KEY NOT RETAINED 

GO TO ERROR-RTN. 



9.1.5 Accessing Relative Files 

Accessing records in a relative file is similar to the accessing of 
sequential file records. (See Section 9.1.4.) There are, however, 
these differences: 

1. If a key is not specified, the RELATIVE KEY specified in the 
FD for the file is used. 

2. Positive keys, whether specified directly or via RELATIVE 
KEY, designate fixed (absolute) records of the file (as 
opposed to designating records relative to the current 
record). Thus, record 1 is always the first record of the 
file, not the next record. A zero key, on the other hand, is 
interpreted in the same way as for sequential files: that 
is, record is defined as the next record to be read or 
written. 

3. A RETAIN statement, by virtue of its not performing any 
actual I/O, cannot generate an INVALID KEY condition. 

Example 9-4 demonstrates reading a relative file sequentially. 
Example 9-4 

A. RETAIN FILE-A FOR READ. 

READ FILE-A NEXT RECORD; INVALID KEY GO TO ERROR-RTN. 



GO TO A. 

Example 9-5 shows how a file can be processed randomly. Note that the 
UNTIL FREED clause is used to insure that no one can access the record 
until it is written. 
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Example 9-5 

A. PERFORM RELATIVE-KEY-GENERATION. 

RETAIN FILE-A KEY GENERATED-KEY 

FOR READ-WRITE UNTIL FREED 

READ FILE-A INVALID KEY GO TO ERR-RTN, 



WRITE FILE-A-RECORD. 
FREE FILE-A RECORD. 
GO TO A. 

Example 9-6 shows how to use a field within a record as the RELATIVE 
KEY for processing a chain of related records in a relative file. 
Procedure A initializes processing with record number 64. Procedure B 
insures that record 64 is stable, that is, that it has not been 
changed by some other user after you read it and that it will not be 
changed while you are processing it. 

Example 9-6 

A. MOVE 64 TO FILE-A-REL-KEY. 
RETAIN FILE-A FOR READ. 
READ FILE-A INVALID KEY GO TO ERR-RTN. 



B. RETAIN FILE-A FOR READ-REWRITE 

FILE-A KEY NUMBER OF FILE-A-RECORD 
FOR READ-REWRITE. 

READ FILE-A INVALID KEY GO TO ERR-RTN. 

IF (record not stable) FREE FILE-A EVERY RECORD. 

GO TO B. 

C. (process record 64 and record pointed to by NUMBER) 



9.1.6 Accessing Indexed-Sequential Files 

Accessing records in an indexed-sequential file is similar to the 
accessing of sequential file records. (See Section 9.1.4.) There 
are, however, these differences: 

1. You may retain records for REWRITE, DELETE, and READ-REWRITE, 
in addition to READ, WRITE, and ANY VERB. You may not retain 
a record for READ-WRITE. 

2. If no key is specified, the RECORD KEY defined in the SELECT 
statement for the file is used. 
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3. If a key is supplied, it must be specified with an identifier 
that agrees with the file's RECORD KEY in size, class, usage, 
and number of decimal places. The only exception is a key 
whose usage is COMP; in this case, a positive numeric 
literal of ten or fewer digits may be used. 

4. Retaining or freeing records does not affect the "remembered" 
key of the file; that is, the record which would be read by 
a READ NEXT statement would be the same before and after a 
RETAIN or a FREE statement. 

Example 9-7 demonstrates how an indexed-sequential file can be 
processed sequentially. 

Example 9-7 

A. RETAIN FILE-A KEY FILE-A-KEY 
FOR READ. 

READ FILE-A NEXT RECORD; INVALID KEY GO TO ERR-RTN. 



GO TO A. 

Example 9-8 shows the random processing of an indexed file. Note how 
the UNTIL FREED statement is used to insure the stability of the 
record. 

Example 9-8 

A. ACCEPT DATA-KEY. 

RETAIN FILE-A KEY DATA-KEY 

FOR READ-REWRITE UNTIL FREED. 

READ FILE-A INVALID KEY GO TO ERR-RTN. 

DISPLAY FILE-A-RECORD. 

B. (process and update record if the user wishes) 



C. FREE FILE-A-RECORD, 



GO TO A. 
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CHAPTER 10 
REPORT WRITER 



The COBOL-74 compiler offers a report writing facility, REPORT WRITER. 
Using this facility can make it easy to format printed reports. 

As a programmer, you have been asked to write a program to print two 

reports from one input file. The first report format is shown in 

Figure 10-1, the second report format is shown in Figure 10-2. The 

input data file records are 80 characters in length. The data file's 
input appears in Figure 10-3. 

The example program on the following pages shows how to use the major 
features of REPORT WRITER. The full formats and available options for 
each statement are discussed in detail in the COBOL-74 Language 
Reference Material, Part 2 of this manual. 

Immediately following the example program are the two reports as they 
would appear on the line printer. 



10-1 October 1985 



LINE PRINTER SPACING CHART 



(SI 
I 

to 



O 
O 
rr 
O 

cr 



00 




DEC 15-(649)-1001-N869 



MR-&-3121-83 



50 
M 
TJ 
O 
» 
•-3 

s: 

50 
M 

•-3 

H 
50 



Figure 10-1: Report A Format 



LINE PRINTER SPACING CHART 



(St 
I 

W 



o 
o 
rr 
O 



oo 
en 




DEC 15-1649). 1001-N869 



MR-S-3120-83 



JO 
W 
»0 
O 
33 

50 
M 
►3 

w 
vo 



Figure 10-2: Report B Format 



REPORT WRITER 



John Adam 
Herbert Abbott 
Robert Archibald 
Elliot Brown 
Thomas Berger 
Janet Blau 
Jeanne P. Canale 
James Carter 
Peggy Doucet 
Ruth Fong 
Jack Frost 
Jane Hoffman 
Steve Ingersoll 
Josef Jacquart 
Stanley Kowalczyk 
Ron Lusk 
John Maslanka 
Mary Miller 
David Nixon 
John Young 
Peter Vatne 



12 Pleasant Street 
200 Meadow Lane 
317 Narrows Road 
299 Swift Road 

700 East State Road 

29 E. Main Street 
100 Miller Lane 
400 High Street 
200 Forest Street 
1533 State Street 

7 Winter Street 
15 Summer Street 

13 Washington St. 
5 Jean Road 

P Cynthia Road 
57 Highview Drive 

30 Taylor Street 

8 Commerce Way 
10 Main Street 
99 Oldham Road 
137 Farm Road 



Marlboro 


MA 


1000000 


Westminster 


MA 


650000 


Nashua 


NH 


960000 


Whitinsville 


MA 


750000 


Princeton 


NJ 


1125000 


Marlboro 


MA 


357000 


Med ford 


MA 


675000 


London 


NH 


350000 


Marlboro 


MA 


700000 


Concord 


NH 


625000 


White Plains 


NY 


650000 


Bolton 


MA 


350000 


Atlantic City 


NJ 


760000 


Walpole 


MA 


275000 


Canton 


MA 


425000 


White Plains 


NY 


555000 


Marlboro 


MA 


840000 


Woburn 


MA 


500000 


Sudbury 


MA 


450000 


Sudbury 


MA 


800000 


Hudson 


MA 


475000 



Figure 10-3: Input Data File for Report Writer Program 
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REPORT WRITER 

PROGRAM REPEXM COBOL-74 12C(1574) BIS 

27-Aug-8 5 10:43 PAGE 1 

REPEXM. C74 05-Aug-85 11:20 

IDENTIFICATION DIVISION. 
PROGRAM-ID. REPEXM. 

************************************************************** 

* 

This program is an example of the use of REPORT WRITER. * 

* 

The program generates two reports: one is a list of * 
customers by city and state; the other is a list of * 
totals for each state. * 

The two reports are generated at one time and into one * 
file. The line printer spooler can separate them at the * 

time they are to be printed. * 

* 

************************************************************** 

ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SPECIAL-NAMES. 

************************************************************** 

* 

Report Codes (Lines 37 and 38): * 

* 

The following entry in the SPECIAL-NAMES paragraph of the * 
CONFIGURATION SECTION defines the codes 'A' and 'B' for * 
the two reports you are going to generate. The line printer * 
spooler can separate them when you use the /REPORT: switch * 
with the system QUEUE command. For example, to print both * 
reports, you can type: * 

* 

Q LL:=CUSTMR.LST/REPORT:A,CUSTMR.LST/REPORT:B * 

* 
************************************************************** 

'A' IS BY-CITY-CODE 

•B' IS STATE-TOTALS-CODE. 

INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT CUSTOMEP-FILE ASSIGN TO DSK 
RECORDING MODE IS ASCII. 



0001 




0002 




0003 




0004 


* 


0005 


* 


0006 


* 


0007 


* 


0008 


* 


0009 


* 


0010 


* 


0011 


* 


0012 


* 


0013 


* 


0014 


* 


0015 


* 


0016 


* 


0017 




0018 




0019 




0020 




0021 




0022 


* 


0023 


* 


0024 


* 


0025 


* 


0026 


* 


0027 


* 


0028 


* 


0029 


* 


0030 


* 


0031 


* 


0032 


* 


0033 


* 


0034 


* 


0035 


* 


0036 




0037 




0038 




0039 




0040 




0041 




0042 




0043 




0044 




0045 
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27-Aug-85 10:43 PAGE 2 

REPEXM. C74 05-Aug-85 11:20 

0046 

0047 * *********************************************************** 

0048 * * 

0049 * Report file SELECTion and ASSIGNment (Line 57) : * 

0050 * * 

0051 * Like any file, the file for the report must be SELECTed and * 

0052 * assigned. You can use a disk file (DSK) , but any device is * 

0053 * legal. * 

0054 * * 

0055 * ************************************************************** 

0056 

0057 SELECT PRINTER-FILE ASSIGN TO DSK 

0058 RECORDING MODE IS ASCII. 
0059 

0060 SELECT SORT-FILE ASSIGN TO DSK DSK DSK 

0061 RECORDING MODE IS ASCII. 
0062 

0063 DATA DIVISION. 

0064 FILE SECTION. 
0065 

0066 SD SORT-FILE. 

0067 01 SORT-RECORD USAGE DISPLAY-7. 
0068 

0069 02 SORT-NAME PIC X(24). 

0070 02 SORT-CITY PICX(20). 

0071 02 SORT-STATE PIC XX. 

0072 02 SORT-STREET PIC X (20). 

0073 02 SORT-SALES PIC S9(10). 
0074 

0075 FD CUSTOMER-FILE VALUE OF ID IS 'CUSTMRDAT'. 

0076 01 CUSTOMER-RECORD USAGE DISPLAY-7. 
0077 

0078 02 CUSTOMER-NAME PIC X(24). 

0079 02 CUSTOMER-STREET PICX(20). 

0080 02 CUSTOMER-CITY PIC X(20). 

0081 02 CUSTOMER-STATE PIC XX. 

0082 02 CUSTOMER-SALES PIC S9(10)V99. 

0083 02 FILLER PIC XX. 
0084 
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COBOL-74 12C(1574) BIS 
PAGE 3 



0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
L 19 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 



You can give the file for the report the name CUSTMR.LST. 



************************************************************** 

* 

The FD for the Report File (Lines 105 - 109) : * 

* 

* 

* 

The REPORTS ARE clause names the RD entries that you * 

define in the REPORT SECTION and names the reports to be * 

written in the file. * 

* 

The record named in the 01-level entry must be large enough * 
to contain the largest line written (including a one- * 
character code. In this program, you never refer to * 
PRINTER-RECORD in the PROCEDURE DIVISION. Thus, you can * 
omit PRINTER-RECORD. The default size for PRINTER-RECORD * 

is 132 characters. * 

* 

************************************************************** 



FD PRINTER-FILE 
REPORTS ARE 

VALUE OF ID IS 
01 PRINTER-RECORD 



STATE-TOTALS-ONLY 
BY-CITY 
'CUSTMRLST* . 

PIC X(80) 



USAGE DISPLAY-7 



WORKING-STORAGE SECTION. 



01 
01 



THIS-DATE 


PIC 


X(8) 


• 




TD-REDEFINED 


REDEFINES 


THIS-DATE. 


02 TD-MONTH 






PIC 


Z9. 


02 TD-HYF-1 






PIC 


X. 


02 TD-DAY 






PIC 


99. 


02 TD-HYF-2 






PIC 


X. 


02 TD-YEAR 






PIC 


99. 



01 



UNEDITED-DATE. 



02 
02 
02 



UE-YEAR 

UE-MONTH 

UE-DAY 



77 
77 
77 

77 

77 
77 



TEMP 

NUMBER-OF-CITIES 

NUMBER-OF-STATES 

ONE-COUNT 

CURRENT-STATE 
CURRENT-CITY 



PIC 99. 
PIC 99. 
PIC 99. 

PIC S999 
PIC S999 
PIC S999 

PIC S9 

PIC XX. 
PIC X(20) 



USAGE COMP. 
USAGE COMP. 
USAGE COMP. 

USAGE COMP 
VALUE 1. 

USAGE DISPLAY-7 
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COBOL-74 12C(1574) BIS 
PAGE 4 



0137 




0138 


* 


0139 


* 


0140 


* 


0141 


* 


0142 


* 


0143 


* 


0144 


* 


0145 


* 


0146 


* 


0147 




0148 




0149 




0150 


* 


0151 


* 


0152 


* 


0153 


* 


0154 


* 


0155 


* 


0156 


* 


0157 


* 


0158 


* 


0159 


* 


0160 


* 


0161 


* 


0162 


* 


0163 


* 


0164 


* 


0165 


* 


0166 


* 


0167 


* 


0168 


* 


0169 


* 


0170 


* 


0171 




0172 




0173 




0174 




0175 




0176 




0177 




0178 




0179 




0180 





************************************************************** 

* 

The REPORT SECTION statement (Line 148) : * 

* 

The REPORT SECTION is coded within the DATA DIVISION. It * 

must be the last section(s) of the division. In the REPORT * 

SECTION, you can define the formats for the reports. * 

* 

************************************************************** 

REPORT SECTION. 

************************************************************** 

* 

The RD for a Report (Lines 172 - 531) : 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
************************************************************** 

RD 



The RD entry is the report description for each report. 
You need an RD entry for each report produced by the 
program. The first RD entry is below, on line 172, for the 
STATE-TOTALS-ONLY report and the RD entry for the BY-CITY 
report is on line 384. 

The CODE clause of the RD gives the mnemonic-name of the 
code assigned to the report. This is the same code given 
by the literal in the SPECIAL-NAMES paragraph in the 
ENVIRONMENT DIVISION above. 

The CONTROL clause specifies the break fields in order 
from most important to least important. FINAL is a special 
case in which a control break occurs at the end of the 
report. 



STATE-TOTALS-ONLY 

CODE 

CONTROLS ARE FINAL 

PAGE LIMIT IS 



STATE-TOTALS-CODE 
SORT-STATE 
58 LINES 
HEADING 1 
FOOTING 58 
FIRST DETAIL 6 
LAST DETAIL 55. 
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0181 

0182 * ************************************************************** 

0183 * * 

0184 * The TYPE Statement (Line 286 and throughout the RDs) : * 

0185 * * 

0186 * The TYPE statement defines the type of each record and * 

0187 * where it appears in the report. The record need not be * 

0188 * named unless it is referenced in the PROCEDURE DIVISION. * 

0189 * * 

0190 * There are seven types of records: * 

0191 * * 

0192 * REPORT HEADING (or RH) is a heading that appears at * 

0193 * the beginning of the report. * 

0194 * * 

0195 * REPORT FOOTING (or RF) is a footing that appears at * 

0196 * the end of the report. * 

0197 * * 

0198 * PAGE HEADING (or PH) is a page heading that appears * 

0199 * at the top of each page of the report. * 

0200 * * 

0201 * PAGE FOOTING (or PF) is a page footing that appears * 

0202 * at the bottom of each page. * 

0203 * * 

0204 * CONTROL HEADING (or CH) is a heading that appears * 

0205 * immediately before any detail lines whenever a * 

0206 * control break occurs, and after the page heading of * 

0207 * the first page. The name of the control break is * 

0208 * specified in the CONTROL clause, and tells REPORT * 

0209 * WRITER which field to test for a control break. * 

0210 * * 

0211 * CONTROL FOOTING (or CF) is a footing that appears * 

0212 * immediately after the last detail line before a * 

0213 * control break. * 

0214 * * 

0215 * DETAIL (or DE) is a detail line that is printed each * 

0216 * time a GENERATE statement is executed in the * 

0217 * PROCEDURE DIVISION. * 

0218 * * 

0219 * ************************************************************** 

0220 

0221 * ************************************************************** 

0222 * * 

0223 * The NEXT GROUP clause (Lines 286 and 485) : * 

0224 * * 

0225 * The NEXT GROUP clause gives the line-number of the line for * 

0226 * the beginning of the next group written. The argument for * 

0227 * NEXT GROUP can be a number; for example, NEXT GROUP IS 15 * 

0228 * places the next group on line 15 of the page. The argument * 

0229 * can also be relative; for example, NEXT GROUP IS PLUS 2 * 

0230 * places the next line two lines below the current line. * 

0231 * * 
02 32 * ************************************************************** 
0233 
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0234 

0235 * it************************************************************* 

0236 * * 

0237 * The LINE clause (Line 288 and throughout the RDs) : * 

0238 * * 

0239 * The LINE NUMBER IS clause (which can be abbreviated to LINE)* 

0240 * tells on which line of the page a report entry should be * 

0241 * written. The LINE clause applies to the item containing it * 

0242 * and continues to apply until the end-of-record or until * 

0243 * another LINE clause is found. * 

0244 * * 

0245 * The LINE clause can take three kinds of arguments: * 

0246 * * 

0247 * 1. An integer that specifies the line number. * 

0248 * For example, LINE NUMBER IS 25 specifies line 25. * 

0249 * If the number is smaller than the current line, a * 

0250 * new page is begun. * 

0251 * * 

0252 * 2. PLUS with an integer that specifies how many lines * 

0253 * below the current line to print the current entry. * 

0254 * For example, LINE PLUS 3 means to skip two lines * 

0255 * before printing the current entry. * 

0256 * * 

0257 * 3. NEXT PAGE, which specifies the next page. If the * 

0258 * record is a page header, it is printed on * 

0259 * line 1; otherwise it is printed on line 2. * 

0260 * * 

0261 * *********************************************** 

0262 

0263 * ************************************************************** 

0264 * * 

0265 * The COLUMN clause (Line 288 and throughout the RDs) : * 

0266 * * 

0267 * The COLUMN NUMBER IS clause (you can omit NUMBER IS) tells * 

0268 * REPORT WRITER which column is the first for a record or * 

0269 * field. If a record or field does not have a COLUMN entry, * 

0270 * it is not printed. * 

0271 * * 

0272 * ************************************************************** 

0273 

0274 * ************************************************************** 

0275 * * 

0276 * The SOURCE clause (Line 291 and throughout the RDs) : * 

0277 * * 

0278 * The SOURCE IS clause (you can omit IS) specifies the source * 

0279 * for an item. The source item must have been defined in the * 

0280 * FILE or WORKING-STORAGE SECTION. Its value is moved into * 

0281 * the report item before the item is written in the file. * 

0282 * * 

0283 * ************************************************************** 

0284 
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II TYPE PH NEXT GROUP PLUS 2 USAGE DISPLAY-7, 

02 LINE 1 COLUMN 22 PIC X(25) 

VALUE 'STATE TOTALS OF CUSTOMERS'. 
02 LINE 2 COLUMN 31 PIC X(8) 

SOURCE THIS-DATE. 
02 LINE 5 COLUMN 1 PIC X(5) 

VALUE 'STATE' . 
02 LINE 5 COLUMN 10 PIC X(19) 

VALUE 'NUMBER OF CUSTOMERS'. 
02 LINE 5 COLUMN 44 PIC X(5) 

VALUE 'SALES' . 

************************************************************** 

* 

The SUM clause (Line 335 and throughout the RDs) : * 

The SUM clause entry on line 337 specifies that the * 

data-item is summed. The data^-item summed can be either a * 

source item from a TYPE DETAIL line (for example, SORT- * 

SALES in this program) , or a summation counter (for * 

example, CITY-COUNT). * 

When either the SOURCE item or the summation counter is * 

used, the value of the item is added to a compiler- * 

generated accumulator and this accumulator is moved to the * 

report item before writing. The summation counter need * 

not be named unless it is referenced directly in the * 

PROCEDURE DIVISION or in another REPORT SECTION statement. * 

A SUM clause can appear only in a TYPE CONTROL FOOTING * 

record. The accumulator is zeroed after being moved to * 

the report item. * 

* 

You can selectively sum portions of a data-item by using * 

the UPON option with the SUM clause. In that case, summing * 

occurs only when the item is referenced by a GENERATE * 

statement. The individual items to be summed must be * 

SOURCE items within a data-name specified as a TYPE DETAIL * 

report group. * 

* 

*********************************************************** 



0285 




0286 




0287 




0288 




0289 




0290 




0291 




0292 




0293 




0294 




0295 




0296 




0297 




0298 




0299 


* 


0300 


* 


0301 


* 


0302 


* 


0303 


* 


0304 


* 


0305 


* 


0306 


* 


0307 


* 


0308 


* 


0309 


* 


0310 


* 


0311 


* 


0312 


* 


0313 


* 


0314 


* 


0315 


* 


0316 


* 


0317 


* 


0318 


* 


0319 


* 


0320 


* 


0321 


* 


0322 


* 


0323 


* 


0324 


* 


0325 


* 


0326 


* 


0327 


* 


0328 
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0329 




0330 




0331 




0332 




0333 




0334 




0335 




0336 




0337 




0338 




0339 




0340 




0341 




0342 




0343 




0344 




0345 




0346 




0347 




0348 




0349 


* 


0350 


* 


0351 


* 


0352 


* 


0353 


* 


0354 


* 


0355 


* 


0356 


* 


0357 


* 


0358 


* 


0359 




0360 




0361 




0362 




0363 




0364 




0365 




0366 




0367 


* 


0368 


* 


0369 


* 


0370 


* 


0371 


* 


0372 


* 


0373 


* 


0374 


* 


0375 


* 


0376 


* 


0377 


* 


0378 


* 


0379 


* 


0380 


* 


0381 


* 


0382 





01 



01 



TYPE 
02 
02 
02 

TYPE 
02 

02 
02 



CF 



SORT-STATE LINE PLUS 1. 
COLUMN 3 
COLUMN 15 
COLUMN 35 



PIC XX 

SOURCE CURRENT-STATE. 

PIC ZZ,ZZ9 

SUM ONE-COUNT. 

PIC ZZ,ZZZ,ZZZ,ZZ9 

SUM SORT-SALES. 



CF 



FINAL LINE PLUS 2. 
COLUMN 1 



COLUMN 15 
COLUMN 35 



PIC X(5) 

USAGE DISPLAY-7 

VALUE 'TOTAL'. 

PIC ZZ,ZZ9 

SUM ONE-COUNT. 

PIC ZZ,ZZZ,ZZZ,ZZ9 

SUM SORT-SALES. 



********************************************************* 

* 

Missing COLUMN clause (Lines 362 and 364) : * 

* 

The following lines illustrate the fact that a report * 
item is not written in the report (even if directly * 
specified in a GENERATE statement) unless the item has * 
a COLUMN NUMBER clause. * 

* 
************************************************************** 



01 



TYPE DETAIL. 

02 

02 



PIC S9(5) 

SOURCE ONE-COUNT. 

PIC S9(10) 

SOURCE SORT-SALES. 



************************************************************** 

* 

The PAGE LIMIT clause (Lines 388 through 392) : 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
************************************************************** 



The PAGE LIMIT clause specifies the number of lines that 
can be written on one page of the report. If a line is 
written that would exceed PAGE LIMIT, page footings are 
written, a new page is begun, and page headings are 
written. 

The PAGE LIMIT clause can contain additional options to 
control placement of page headings and footings, and the 
placement of first and last TYPE DETAIL lines. 
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0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 



RD 



BY-CITY 

CODE 

CONTROLS ARE FINAL 



PAGE LIMIT IS 



REPORT-HEADER 
02 LINE 25 



02 



LINE 29 



01 



REPORT-FOOTER 
02 



BY-CITY-CODE 
SORT-STATE 
SORT-CITY 
58 LINES 
HEADING 1 
FOOTING 58 
FIRST DETAIL 6 
LAST DETAIL 55. 

TYPE REPORT HEADING. 

COLUMN 27 PIC X(27) 

USAGE DISPLAY-7 
VALUE 'CUSTOMERS BY CITY AND STATE'. 
COLUMN 36 PIC X(8) 
SOURCE THIS-DATE. 

TYPE REPORT FOOTING LINE PLUS 2. 

COLUMN 30 PIC X(19) 

USAGE DISPLAY-7 
VALUE '** END OF REPORT **'. 



************************************************************** 

* 

The PAGE-COUNTER (Line 430): 



* 
* 

* 

* 

* 

* 
************************************************************** 



The compiler generates a data-item called PAGE-COUNTER 
for each report descriptor (RD) item. It is set to 1 by 
the INITIATE statement, and incremented by 1 for each 
new page. 

If you define more than one report in the same program, 
you must qualify a reference to PAGE-COUNTER by using 
the name of the report (SOURCE IS PAGE-COUNTER OF report) 



01 



PAGE-HEADING 



TYPE PAGE HEADING 



USAGE DISPLAY-7. 



02 LINE 1 COLUMN 1 PIC X(33) 

VALUE 'CUSTOMERS BY CITY AND STATE'. 
02 LINE 1 COLUMN 62 PIC X(4) 

VALUE 'PAGE'. 
02 LINE 1 COLUMN 66 PIC ZZZ9 

SOURCE IS PAGE-COUNTER OF BY-CITY. 
02 LINE 2 COLUMN 1 PIC X(8) 

SOURCE THIS-DATE. 
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0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
04 54 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 



01 



STATE-HEADING 



01 



02 




COLUMN 1 


02 




COLUMN 30 


02 




COLUMN 36 


02 
DET/ 


HL-LINE-1 


COLUMN 65 
T 


02 




COLUMN 1 


02 




COLUMN 32 


02 




COLUMN 36 


02 




COLUMN 56 



DETAIL-LINE-2 




02 


COLUMN 1 



CITY-FOOTING 

02 CITY-COUNT 

02 

02 



02 



CITY-SALES 
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TYPE CONTROL HEADING SORT-STATE 
LINE PLUS 2 USAGE DISPLAY-7. 



PIC X(9) 

VALUE 'CUSTOMER' . 

PIC X(5) 

VALUE 'STATE' . 

PIC X(4) 

VALUE 'CITY'. 

PIC X(5) 

VALUE 'SALES' . 

TYPE DETAIL LINE PLUS 2. 

PIC X(24) 

USAGE DISPLAY-7 

SOURCE SORT-NAME. 

PIC XX 

USAGE DISPLAY-7 

SOURCE SORT-STATE. 

PIC X(20) 

USAGE DISPLAY-7 

SOURCE SORT-CITY. 

PIC ZZ,ZZZ,ZZZ,ZZ9 

SOURCE SORT-SALES. 

PIC ZZ,ZZ9 

SOURCE ONE-COUNT. 

TYPE DETAIL LINE PLUS 1. 

PIC X(20) 

USAGE DISPLAY-7 

SOURCE SORT-STREET. 



TYPE CF SORT-CITY LINE PLUS 3. 

COLUMN 4 PIC ZZ,ZZ9 

USAGE DISPLAY-7 
SUM ONE-COUNT. 

COLUMN 11 PIC X(17) 

USAGE DISPLAY-7 
VALUE 'CUSTOMERS IN CITY'. 

COLUMN 36 PIC X(20) 

USAGE DISPLAY-7 
SOURCE CURRENT-CITY. 

COLUMN 56 PIC $$,$$$,$$$ ,$$9 
SUM SORT^SALES. 
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0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 
0530 
0531 
0532 



01 



STATE-FOOTING 



02 


STATE -COUNT 


COLUMN 


4 


02 




COLUMN 


11 


02 




COLUMN 


VALUE 
32 


02 


STATE-SALES 


COLUMN 


56 



01 



FINAL-FOOTING 
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TYPE CF SORT-STATE LINE PLUS 3 
NEXT GROUP NEXT PAGE. 



PIC ZZ,ZZ9 
USAGE DISPLAY-7 
SUM CITY-COUNT. 
PIC X(18) 
USAGE DISPLAY-7 
•CUSTOMERS IN STATE'. 
PIC XX 

SOURCE CURRENT-STATE. 
PIC $$,$$$,$$$,$$9 
SUM CITY-SALES. 



TYPE CF FINAL. 



02 


LINE 


PLUS 1 


COLUMN 


3 


PIC X(5) 

USAGE DISPLAY-7 

VALUE 'TOTAL'. 


02 






COLUMN 


15 


PIC X(5) 

USAGE DISPLAY-7 

VALUE 'TOTAL'. 


02 






COLUMN 


25 


PIC X(5) 

USAGE DISPLAY-7 

VALUE 'TOTAL'. 


02 






COLUMN 


45 


PIC X(5) 

USAGE DISPLAY-7 

VALUE 'TOTAL'. 


02 


LINE 


PLUS 1 


COLUMN 


1 


PIC X(9) 

USAGE DISPLAY-7 

VALUE 'CUSTOMERS'. 


02 






COLUMN 


15 


PIC X(6) 

USAGE DISPLAY-7 

VALUE 'STATES'. 


02 






COLUMN 


25 


PIC X(6) 

USAGE DISPLAY-7 

VALUE 'CITIES'. 


02 






COLUMN 


45 


PIC X(5) 

USAGE DISPLAY-7 

VALUE 'SALES'. 


02 


LINE 


PLUS 2 


COLUMN 


1 


PIC ZZ,ZZ9 

SUM STATE-COUNT. 


02 






COLUMN 


16 
SOURCE 


PIC ZZ9 
NUMBER-OF-STATES . 


02 






COLUMN 


26 
SOURCE 


PIC ZZ9 
NUMBER-OF-CITIES. 


02 






COLUMN 


36 


PIC $$,$$$,$$$, $$9 
SUM STATE-SALES. 
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0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 



PROCEDURE DIVISION. 



************************************************************** 

* 

The USE BEFORE REPORTING verb (Line 551): * 

* 

You can include the USE BEFORE REPORTING verb in the * 
DECLARATIVES SECTION of the PROCEDURE DIVISION. A report * 
record is specified in the use statement to indicate when * 
the USE procedure is to be performed. It is performed * 
immediately before the report record is written. * 

* 

************************************************************** 

DECLARATIVES. 

END-OF-REPORT SECTION. 

USE BEFORE REPORTING REPORT-FOOTER. 
END-OF-REPORT-A. 

DISPLAY 'END OF REPORTS'. 
END DECLARATIVES. 

MAIN SECTION. 

START-PROCEDURE-1 . 

SORT SORT-FILE ON ASCENDING KEY 

SORT-STATE SORT-CITY SORT-NAME 
INPUT PROCEDURE IS IN-PROCEDURE 
OUTPUT PROCEDURE IS OUT-PROCEDURE. 
RUN. 



STOP 

IN-PROCEDURE SECTION. 
START-PROCEDURE-2 . 

OPEN INPUT 
INPUT-PROCESS. 



CUSTOMER-FILE. 



READ CUSTOMER-FILE 

AT END GO TO INPUT-PROCESS-COMPLETE. 
COMPUTE SORT-SALES ROUNDED = CUSTOMER-SALES. 
MOVE CUSTOMER-NAME TO SORT-NAME. 
MOVE CUSTOMER-STATE TO SORT-STATE. 
MOVE CUSTOMER-STREET TO SORT-STREET. 
MOVE CUSTOMER-CITY TO SORT-CITY. 
RELEASE SORT-RECORD. 
GO TO INPUT-PROCESS. 
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INPUT-PROCESS-COMPLETE. 

CLOSE CUSTOMER-FILE. 
OUT-PROCEDURE SECTION. 

************************************************************** 

* 

OPEN the Report File (Line 602) : * 

The report file must be opened before any records can be * 
written in it. * 

* 
************************************************************** 

START-PROCEDURE-3 . 

OPEN OUTPUT PRINTER-FILE. 
ACCEPT UNEDITED-DATE FROM DATE. 

MOVE UE-DAY TO TD-DAY. 

MOVE UE-MONTH TO TD-MONTH. 

MOVE UE-YEAR TO TD-YEAR. 

MOVE •-» TO TD-HYF-1 TD-HYF-2. 

************************************************************** 

* 

INITIATE the Reports (Lines 623 and 624) : * 

* 

The INITIATE statement causes the counters and accumulators * 
to be initialized. The summation counters are set to 0; * 
the PAGE-COUNTER is set to 1 . * 

* 

Each report written must be named in an INITIATE statement. * 
The output file for the report must be OPENed before any * 
INITIATE statement is executed. * 

* 
************************************************************** 

INITIATE BY-CITY. 

INITIATE STATE-TOTALS-ONLY. 



0584 




0585 




0586 




0587 




0588 




0589 




0590 




0591 


* 


0592 


* 


0593 


* 


0594 


* 


0595 


* 


0596 


* 


0597 


* 


0598 


* 


0599 




0600 




0601 




0602 




0603 




0604 




0605 




0606 




0607 




0608 




0609 


* 


0610 


* 


0611 


* 


0612 


* 


0613 


* 


0614 


* 


0615 


* 


0616 


* 


0617 


* 


0618 


* 


0619 


* 


0620 


* 


0621 


* 


0622 




0623 




0624 




0625 
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0626 

0627 * ********************************************************** 

0628 * * 

0629 * GENERATE Report Records (Lines 677 through 679) : * 

0630 * * 

0631 * The GENERATE statement causes testing of control fields * 

0632 * and writes any required control headings and footings. If * 

0633 * the argument to the GENERATE statement is a TYPE DETAIL * 

0634 * record, the record is written after any control breaks. If * 

0635 * the argument is a report descriptor (RD) , the detail lines * 

0636 * are set up but not printed, so that a summary report is * 

0637 * written. * 

0638 * * 

0639 * In this program, both types of reports are generated. The * 

0640 * GENERATE DETAIL-LINE statement causes a detail report to be * 

0641 * written; the GENERATE STATE-TOTALS-ONLY statement causes a * 

0642 * summary report to be written. * 

0643 * * 

0644 * A GENERATE statement performs the following operations: * 

0645 * * 

0646 * 1. Increments and tests the PAGE-COUNTER and produces * 

0647 * any required page footings and headings. * 

0648 * * 

0649 * 2. Tests for any control breaks and produces any * 

0650 * required control footings and headings. * 

0651 * * 

0652 * 3. Adds all specified identifiers to summation counters. * 

0653 * * 

0654 * 4. Executes any routines defined by USE statements. * 

0655 * * 

0656 * 5. If the argument to the generate statement is a TYPE- * 

0657 * DETAIL record, writes the detail report group. * 

0658 * * 

0659 * During the first execution of a GENERATE statement, all * 

0660 * required report headings, page headings, control headings, * 

0661 * and detail report groups are written. * 

0662 * * 

0663 * ************************************************************** 

0664 

0665 OUTPUT-PROCESS. 

0666 

0667 RETURN SORT-FILE 

0668 AT END GO TO REPORTS-COMPLETED. 
0669 

0670 IF CURRENT-STATE NOT EQUAL SORT-STATE 

0671 ADD 1 TO NUMBER-OF-STATES. 
0672 

0673 IF CURRENT-CITY NOT EQUAL SORT-CITY 

0674 ADD 1 TO NUMBER-OF-CITIES. 
0675 



10-18 October 1985 



REPORT WRITER 



PROGRAM REPEXM 

27-Aug-85 10:43 
REPEXM. C74 05-Aug-85 11:20 



COBOL-74 12C(1574) BIS 
PAGE 15 



0676 




0677 




0678 




0679 




0680 




0681 




0682 




0683 




0684 




0685 


* 


0686 


* 


0687 


* 


0688 


* 


0689 


* 


0690 


* 


0691 


* 


0692 


* 


0693 


* 


0694 


* 


0695 


* 


0696 


* 


0697 


* 


0698 




0699 


* 


0700 


* 


0701 


* 


0702 


* 


0703 


* 


0704 


* 


0705 


* 


0706 


* 


0707 


* 


0708 




0709 




0710 




0711 




0712 




0713 




0714 





GENERATE 
GENERATE 
GENERATE 



DETAIL-LINE-1. 
DETAIL-LINE-2. 
STATE-TOTALS-ONLY . 



MOVE SORT-STATE TO CURRENT-STATE. 
MOVE SORT-CITY TO CURRENT-CITY. 
GO TO OUTPUT-PROCESS. 



********************************************************** 

* 

TERMINATE the Reports (Lines 711 and 712): 



The TERMINATE statement completes the processing for a 
report. When the TERMINATE statement is executed, breaks 
occur for all control fields and all control footings are 
written; all page footings and report footings are also 
written. If a program writes more than one report in the 
same file, each report must be named in a TERMINATE 
statement. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
************************************************************** 

************************************************************** 

* 

CLOSE the Report File (Line 714) : * 

* 

The CLOSE statement closes the report file. All reports * 

* 
* 
* 
************************************************************** 

REPORTS-COMPLETED. 



written in the file must be TERMINATEd before the CLOSE 
statement is executed. 



TERMINATE 
TERMINATE 



BY-CITY. 
STATE-TOTALS-ONLY . 



CLOSE 
No Errors Detected 



PRINTER-FILE. 
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October 1985 



REPORT WRITER 



CUSTOMERS BY CITY AND STATE 



8-27-85 
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REPORT WRITER 



CUSTOMERS BY CITY AND STATE 
8-27-85 



PAGE 



CUSTOMER 

Jane Hoffman 

15 Summer Street 



STATE CITY 
MA Bolton 



SALES 
3,500 



1 CUSTOMERS IN CITY 



Stanley Kowalczyk 
8 Cynthia Road 



1 CUSTOMERS IN CITY 



Peter Vatne 
137 Farm Road 



Bolton 
MA Canton 

Canton 
MA Hudson 



$3,500 
4,250 

$4,250 
4,750 



1 CUSTOMERS IN CITY 



Janet Blau 

29 E. Main Street 

John Adam 

12 Pleasant Street 

John Maslanka 

30 Taylor Street 

Peggy Doucet 

200 Forest Street 



Hudson 
MA Marlboro 

MA Marlboro 

MA Marlboro 

MA Marlboro 



$4,750 
3,570 

10,000 

8,400 

7,000 



4 CUSTOMERS IN CITY 



Jeanne P. Canale 
100 Miller Lane 



Marlboro 
MA Med ford 



$28,970 
6,750 



1 CUSTOMERS IN CITY 



David Nixon 
10 Main Street 

John Young 

99 Oldham Road 



Med ford 
MA Sudbury 

MA Sudbury 



$6,750 
4,500 

8,000 



2 CUSTOMERS IN CITY 



Sudbury 



$12,500 



10-21 



October 1985 



REPORT WRITER 



CUSTOMERS BY CITY AND STATE PAGE 2 

8-27-85 



Josef Jacquart MA Walpole 2,750 
5 Jean Road 

1 CUSTOMERS IN CITY Walpole $2,750 

Herbert Abbott MA Westminster 6,500 
200 Meadow Lane 

1 CUSTOMERS IN CITY Westminster $6,500 

Elliot Brown MA Whitinsville 7,500 
299 Swift Road 

1 CUSTOMERS IN CITY Whitinsville $7,500 

Mary Miller MA Woburn 5,000 
8 Commerce Way 

1 CUSTOMERS IN CITY Woburn $5,000 

14 CUSTOMERS IN STATE MA $82,470 
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CUSTOMERS BY CITY AND STATE 
8-27-85 



PAGE 



CUSTOMER 

Ruth Fong 

1533 State Street 



1 CUSTOMERS IN CITY 



James Carter 
400 High Street 



1 CUSTOMERS IN CITY 



Robert Archibald 
317 Narrows Road 



STATE CITY 
NH Concord 

Concord 
NH London 

London 
NH Nashua 



SALES 
6,250 

$6,250 
3,500 

$3,500 
9,600 



1 CUSTOMERS IN CITY 



3 CUSTOMERS IN STATE NH 



Nashua 



$9,600 
$19,350 



10-23 



October 1985 



REPORT WRITER 



CUSTOMERS BY CITY AND STATE 
8-27-85 



PAGE 



CUSTOMER 

Steve Ingersoll 
13 Washington St. 



1 CUSTOMERS IN CITY 



Thomas Berger 

700 East State Road 



1 CUSTOMERS IN CITY 



STATE CITY 

NJ Atlantic City 

Atlantic City 
NJ Princeton 

Princeton 



2 CUSTOMERS IN STATE NJ 



SALES 


7 


,600 


$7 


,600 


11 


,250 


$11 


,250 


$18 


,850 
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October 1985 



REPORT WRITER 



CUSTOMERS BY CITY AND STATE 
8-27-85 



PAGE 5 



CUSTOMER 

Jack Frost 

7 Winter Street 

Ron Lusk 

57 Highview Drive 



STATE CITY 

NY White Plains 

NY White Plains 



SALES 
6,500 

5,550 



2 CUSTOMERS IN CITY 



2 CUSTOMERS IN STATE NY 



White Plains 



$12,050 
$12,050 



10-25 



October 1985 



REPORT WRITER 



CUSTOMERS BY CITY AND STATE PAGE 

8-27-85 



TOTAL TOTAL TOTAL TOTAL 

CUSTOMERS STATES CITIES SALES 

21 4 16 $132,720 

** END OF REPORT ** 
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STATE TOTALS OF CUSTOMERS 
8-27-85 



STATE NUMBER OF CUSTOMERS SALES 



MA 14 82,470 

NH 3 19,350 

NJ 2 18,850 

NY 2 12,050 

TOTAL 21 132,720 
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CHAPTER 11 
PROGRAM SEGMENTS, SUBPROGRAMS, AND OVERLAYS 



You may find it convenient to organize your program into parts to make 
the programming task easier, to allow the program to run more 
efficiently, or both. A COBOL programming task can be organized into 
program segments, into subprograms, or into an overlay structure. 



11.1 PROGRAM SEGMENTS 

You can divide the Procedure Division of a COBOL program into parts 
called program segments. By doing this, you cause the system to run 
your program with some segments in memory only when they are needed; 
when they are not needed, they are on disk storage. Thus, the amount 
of memory required for execution is reduced. 

You can define program segments in a main program or in a subprogram, 
but only one segmented program is allowed in a single load. 



11.1.1 Section-Names and Segment Numbers 

A program segment is made up of one or more sections, each of which 
begins with a SECTION statement of the form 

section-name SECTION nn. 

where nn is a two-digit segment number in the range 00 to 99. A 
section extends from its SECTION statement to the next SECTION 
statement, or to the end of the program, whichever is first. All 
sections having the same segment number are in the same segment. 

A program segment is either resident or nonresident, and writeable or 
nonwriteable, depending on its segment number, and on the setting of 
the segment-limit. (The SEGMENT-LIMIT IS nn statement in the 
Environment Division defines the segment limit, which is the smaller 
of nn and 49; if nn is omitted or nn is 0, the segment-limit is 49.) 

A segment with a segment number of 50 or greater is nonresident and 
nonwriteable; it is brought into memory only when it is needed for 
execution. Further, such a segment loses any changes made by ALTER 
statements when it leaves memory. It is in its original state each 
time it enters memory. 

A segment with a segment number in the range SEGMENT-LIMIT to 49 is 
nonresident, but writeable; it retains changes made by ALTER 
statements. 
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A segment with a segment number less than the SEGMENT-LIMIT (or with 
no segment number) is a resident and writeable segment; it is always 
in memory during execution. 

Nonresident segments are suitable for routines that are executed 
infrequently, run for a long time once begun, and require large 
amounts of memory. For example, a program that has four main tasks 
that are executed sequentially is an ideal application for nonresident 
segmentation. Placing each task in a nonresident segment allows the 
program to run with only one of the segments in memory at a time. 

On the other hand, a frequently used routine should be placed in a 
resident segment to avoid the overhead of bringing it into memory time 
after time. 



11.1.2 Examples 

In the following sample program, there are nine program SECTIONS 
forming six program segments. (Recall that sections having the same 
segment numbers are in the same segment.) 

PROGRAM SEGMNT COBOL-74 12(601) BIS 

24-OCT-78 09:22 PAGE 1 

SEGMNT. CBL 24-OCT-78 09:22 

0001 IDENTIFICATION DIVISION. 

0002 PROGRAM-ID. SEGMNT. 
0003 

0004 ENVIRONMENT DIVISION. 

0005 CONFIGURATION SECTION. 

0006 OBJECT-COMPUTER. DECSYSTEM-20 

0007 SEGMENT-LIMIT IS 25. 
0008 

0009 DATA DIVISION. 
0010 

0011 PROCEDURE DIVISION. 

0012 SECT1 SECTION 20. 

0013 CALL A. 

0014 SECT2 SECTION 65. 

0015 CALL A. 

0016 SECT3 SECTION 22. 

0017 CALL A. 

0018 SECT4 SECTION 20. 

0019 CALL A. 

0020 SECT5 SECTION 60. 

0021 CALL A. 

0022 SECT6 SECTION 30. 

0023 CALL A. 

0024 SECT7 SECTION 35. 

0025 CALL A. 

0026 SECT8 SECTION 35. 

0027 CALL A. 

0028 SECT9 SECTION 60. 

0029 CALL A. 

0030 STOP RUN. 

NO ERRORS DETECTED 
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In the example above, the segments are as follows: 

1. Segment 20 contains the sections SECT1 and SECT4. The 
SEGMENT-LIMIT IS 25 statement causes this segment to be 
resident and writeable. 

2. Segment 22 contains section SECT3; it is resident and 
writeable. 

3. Segment 30 contains section SECT6. Since its segment number 
is above the SEGMENT-LIMIT but less than 50, it is 
nonresident and writeable; changes made to the segment are 
preserved even if it leaves and returns to memory. 

4. Segment 35 contains sections SECT7 and SECT8. It is 
nonresident and writeable. 

5. Segment 60 contains sections SECTS and SECT9. Since its 
segment number is above 50, it is nonresident and 
nonwriteable; changes made to the segment are lost when it 
leaves and returns to memory. 

6. Segment 65 contains section SECT2. It is nonresident and 
nonwriteable. 



11.2 SUBPROGRAMS 

A COBOL subprogram is written and compiled as a separate program, but 
is meant to be executed together with other programs. When several 
programs are loaded and executed together, the program in which 
execution begins is called the main program; the other programs are 
called subprograms. 

A large programming task can become more manageable if the program is 
divided into subprograms. Each subprogram can perform a few 
relatively simple tasks and each can be written and tested separately 
by using dummy main programs. 

Using subprograms also permits you to define an overlay structure at 
load time. (See Section 11.3 for a discussion of overlays.) 

A subprogram can open files, perform I/O for them, and close them; but 
no COBOL subprogram can perform I/O for files in another program. Any 
COBOL subprogram that performs I/O must be linked to the main program. 
That is, there must be a link, consisting of CALL statements, or a 
series of CALL statements through a series of subprograms, from the 
main COBOL program to any COBOL subprogram that wishes to do I/O. The 
CALL statement does not have to be executed to provide a link; it has 
to be present to allow the compiler to build a list of all subprogram 
names. Thus, it can be in such a position that it is never executed. 
This requirement is met by any group of subprograms all of which are 
written in COBOL. 

If you wish to call a non-COBOL subprogram, you must make sure that 
any COBOL routines that are called by the non-COBOL subprogram have a 
link to the main COBOL program if the COBOL routines are to do any 
I/O. 

The COBOL compiler recognizes a subprogram by its use of LINKAGE 
SECTION, ENTRY, or the presence of the USING clause in the Procedure 
Division header. If a program has none of these, the compiler treats 
it as a main program. 
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NOTE 

The CALL statement does not have to be executed to 
provide a link - in fact, it can be in such a position 
that it is never executed. This requirement is met by 
any group of subprograms all of which are written in 
COBOL. If, however, you wish to call a non-COBOL 
subprogram, you must make sure that any COBOL routines 
that are called by the non-COBOL subprogram have a 
link to the main COBOL program if the COBOL routines 
are to do any I/O. 

The compiler generates a start address for a main program, but not for 
a subprogram. This start address is the address of the beginning of 
the Procedure Division, that is, the address where the first 
executable instruction is generated. This start address tells LINK 
and, in turn, the system where to begin execution of the program. 

You can force the compiler to generate a start address for a 
subprogram by using the /J switch. You can prevent the compiler from 
generating a start address for a main program by using the /I switch. 

NOTE 

A subprogram can be treated as a main program (that 
is, can contain a start address) only if no statements 
in the Procedure Division refer to data in the Linkage 
Section. This is because in a main program only Data 
Division statements can allocate memory locations. 
There is no space in memory for data in the Linkage 
Section. 



11.2.1 Inter-Program Communication 

Main programs and subprograms communicate by transfering execution 
control and by sharing data. The shared data can be in files, but it 
is often more useful for them to share data that is already in memory. 



11-4 October 1985 



PROGRAM SEGMENTS, SUBPROGRAMS, AND OVERLAYS 

11.2.1.1 The Calling Program - In the calling program, a CALL 
statement transfers execution control to a subprogram and optionally 
makes a list of data-items available to the called subprogram. The 
CALL statement must have the form: 

CALL {program- or entry-name} [USING identifier-1 [,identif ier-2] . . . ] . 

The program- or entry-name specifies the point to which execution 
control is to be passed in a subprogram. If a program-name is given, 
it is the PROGRAM-ID name in the subprogram, and control is 
transferred to the beginning of the subprogram's Procedure Division. 
If an entry-name is given, it is the name given by an ENTRY statement 
in the subprogram, and control is transferred to that statement. 

Each program-name and entry-name must be unique among all those loaded 
together. 

The identifiers specified in the CALL statement give a list of 
data-items in the calling program. The memory locations associated 
with them are then available for use in the called subprogram. If you 
omit the USING clause, no memory locations in the calling program are 
available to the called subprogram. 

Each identifier must be defined in the File Section, Working-Storage 
Section, or Linkage Section of the calling program. Each data-item 
must be word-aligned. (Items at the 01 and 77 levels and COMP items 
are already word-aligned; others can be aligned by using the 
SYNCHRONIZED LEFT clause.) 
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(THIS PAGE INTENTIONALLY LEFT BLANK.) 
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11.2.1.2 The Called Subprogram - A subprogram can begin execution at 
any of its entry points. The beginning of the Procedure Division is 
always an entry point. Its entry-name is the name given in the 
subprogram's PROGRAM-ID statement. 

You can name data-items to be available to the called program with a 
USING clause in the PROCEDURE DIVISION statement. This statement has 
the form: 

PROCEDURE DIVISION [USING identifier-1 [ , identif ier-2] . . . ] . 

You can define additional entry points using the ENTRY statement, 
which has the form: 

ENTRY entry-name [USING identifier-1 [, identif ier-2] ...] . 

The specified entry-name is defined for use by CALL statements in 
calling programs and must be unique among all entry-names and 
program-names loaded together. 

The USING clause of the calling program's CALL statement may have 
defined data-items to be made available to the called subprogram. If 
so, the USING clause of the entry-point statement (PROCEDURE DIVISION 
or ENTRY) may give identifiers to be used as local names for the 
shared memory. 

The identifiers in the called subprogram's USING clause are assigned 
data-items in the shared memory from left to right. The lengths of 
the data-items in the called subprogram need not match those in the 
calling program; but the total length of the data-items in the called 
program must not exceed that in the calling program. 

The identifiers in the USING clause must be defined in the 
subprogram's Linkage Section and they must be level-01 or level-77 
identifiers. 

When a subprogram is called, execution proceeds in it as in any 
program. Control leaves the subprogram at the first executed GOBACK, 
EXIT PROGRAM, or STOP statement. 

If the subprogram does any I/O there must be a link to the main 
program consisting of COBOL subprograms. You may not have a COBOL 
subprogram doing I/O which is called by a non-COBOL subprogram. 

Execution of a GOBACK or EXIT PROGRAM statement in a subprogram 
returns control to the calling program. Execution of the calling 
program resumes at the statement immediately following the CALL 
statement that called the subprogram. Any changes to the data-items 
specified in USING clauses at the entry point are preserved on return 
to the calling program. 

The forms of the GOBACK and EXIT PROGRAM statements are: 

GOBACK. 

EXIT PROGRAM. 

Execution of a STOP statement halts execution of the entire loaded 
program. The STOP statement has the form: 

STOP {RUN or literal}. 
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The STOP RUN statement ends program execution; there is no return to 
the calling program. The STOP literal statement causes a pause in 
program execution and the literal is typed on the user terminal. If 
you then type CONTINUE, execution continues at the statement following 
the STOP literal. 



11.2.2 Loading a Subprogram Structure 

There are two ways to load a subprogram structure: 

1. For simple loads, you can use the COMPILE-class commands. 

2. For more complex loads, you must use LINK directly. 

In either case, the following special considerations for loading 
subprogram structures apply: every entry point (program-name or 
entry-name) referenced in a CALL statement anywhere in the loaded 
program must be satisfied by loading a program containing the 
program-name or entry-name. If some referenced entry points are 
missing, a fatal LINK error occurs at load time. 

11.2.3 Object Libraries and Searches 

An object library is a file having one or more object modules; when 
LINK searches an object library, a module is loaded from the file only 
if it satisfies an unresolved global reference. (COBOL global 
references are created by the CALL or ENTER statement in a program; 
additional global references to routines in the object-time system are 
created by the COBOL compiler.) 

NOTE 

Object libraries are very different from 
source libraries. The source library is 
built using the COBOL utility program 
LIBARY and is accessed by the COPY 
statement in a COBOL program. The 
object library is built using the system 
program MAKLIB and is accessed by LINK 
command strings or by COMPIL-class 
system commands. 

The /SEARCH and /NOSEARCH switches turn on and off LINK'S library 
search mode. When the library search mode is off (the initial 
default) , LINK loads each input file you specify. When the library 
search mode is on, LINK searches each specified input file as a 
library. 

If the /SEARCH switch is appended to a file specification, then the 
switch is automatically turned off after that file is searched. For 
example : 

MYCOBL/SEARCH, C0B4 

searches MYCOBL.REL, but loads all of C0B4.REL. 
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If the /SEARCH switch is not appended to a file specification, then 
the switch remains on until end-of-line or until a /NOSEARCH switch is 
found, whichever is earlier. For example, 

COBO, /SEARCH MYLIBl ,MYLIB2 , /NOSEARCH COBl 

loads COBO, searches MYLIBl and MYLIB2, and loads COBl. 

The system library C74LIB.REL is searched automatically when LINK 
loads programs compiled with COBOL. This search occurs at the end of 
loading. 

You can change this normal search procedure by using LINK switches. 
The /SYSLIB switch requires LINK to search specified system libraries 
no matter what kind of modules were loaded. The /NOSYSLIB switch 
forbids search of specified system libraries. Using these two 
switches, you can select the time for searching system libraries. 

The /USERLIB switch specifies that for modules from a specified 



translator, a given 
corresponding system 
MYCOBL/USERLIB : COBOL 
searching C74LIB.REL. 
a /USERLIB switch. 



user library must be searched before the 
library. For example, using the switch 
requires LINK to search MYCOBL.REL before 
The /NOUSERLIB switch can suspend the effect of 



Using combinations of these search-related switches gives you precise 
control of library searches. All LINK switches are described in 
detail in the LINK Reference Manual. 



11.2.4 Examples 

Section 11.3 contains program listings of seven programs. The first 
of these is called CBLO; it is a main program. The remaining six 
programs are subprograms. Each has a Linkage Section that defines 
data items named in USING clauses of PROCEDURE DIVISION or ENTRY 
statements. The program CBL2 has two entry points defined by ENTRY 
statements. 



The following example shows how to load, save, and run these programs. 
The LOAD system command loads the programs; the SAVE command creates 
a file (CBLO. EXE) for the loaded program; the RUN CBLO command 
executes the program. All text between the RUN and EXIT lines were 
written by the executed program. The example is shown with a TOPS-10 
system prompt character (.), but the TOPS-20 system prompt (@) could 
be there instead. TOPS-20 responds the same way to the LOAD command. 

.LOAD CBL0,CBL1,CBL2,CBL3,CBL4,CBL5,CBL6 

COBOL: 

COBOL: 

COBOL: 

COBOL: 

COBOL: 

COBOL: 

COBOL: 

LINK: 

EXIT 

.SAVE 

CBLO saved 



CBLO 


[CBLO 


.CBL] 


CBL1 


[CBL1 


.CBL] 


CBL2 


[CBL2 


.CBL] 


CBL3 


[CBL3 


.CBL] 


CBL4 


[CBL4 


.CBL] 


CBL5 


[CBL5 


.CBL] 


CBL6 


[CBL6 


.CBL] 


Loading 
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.RUN CBLO 

We're at level in program CBLO 

CBLO calling CBL2A 

We're at level 1 in program CBL2 at CBL2A 
CBL2 calling CBL5 

We're at level 2 in program CBL5 
CBL5 doesn't call anything 
Returned to CBL2 
CBL2 calling CBL6 

We're at level 2 in program CBL6 
CBL6 calling CBL3 

We're at level 3 in program CBL3 
CBL3 doesn't call anything 
Returned to CBL6 
Returned to CBL2 
Returned to CBLO 
CBLO calling CBL4 

We're at level 1 in program CBL4 
CBL4 calling CBL1 

We're at level 2 in program CBL1 
CBL1 calling CBL2B 

We're at level 3 in program CBL2 at CBL2B 
CBL2B doesn't call anything 
Returned to CBL1 
Returned to CBL4 
Returned to CBLO 
Execution ends in CBLO 
EXIT 



11.3 OVERLAYS 

If your loaded program would be too large to execute in one piece, you 
can define an overlay structure for it. This permits the system to 
execute the program with only some parts in your virtual address space 
at one time. (See the chapter on overlays in the LINK Reference 
Manual. ) 



11.3.1 When to Use Overlays 

You do not need an overlay structure unless your program is too large 
for your virtual address space. If the program can fit in your 
virtual space, you should not define an overlay structure for it; the 
monitor's page-swapping facility is faster than overlay execution. 



11.3.2 Overlayable COBOL Programs 

A COBOL subprogram structure is overlayable if it observes the 
following rules: 

1. If a subprogram contains I/O verbs other than ACCEPT and 
DISPLAY., it must be placed in the root link. (The other I/O 
verbs are CLOSE, DELETE, OPEN, READ, REWRITE, START, and 
WRITE.) Further, the subprogram that does I/O must have a 
chain of calls from the main program entirely within the root 
link; the chain of calls cannot contain calls to subprograms 
in other links. 
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2. The subprogram structure must not contain RERUN statements. 

3. The subprogram structure must not contain reentrant code 
(compiled with /R under TOPS-10 or compiled without switches 
under TOPS-20 - thus users of TOPS-20 must use the /U switch 
to avoid reentrant code) . 

To insure proper execution of a COBOL overlay, observe the following 
rules: 

1. After bringing the overlay into memory (by a LOAD command) , 
run it using the RUN command (not the START command) . 

2. Be sure that enough free memory is in the root link for the 
program to execute. (See Section 11.3.4.) 

A subprogram loaded into a nonroot link is not writeable. Each time 
the link comes into memory, it is in its original state. 



11.3.3 Defining Overlays 

A program overlay has a tree structure. The tree is made up of links, 
each containing one or more program modules. These links are 
connected by paths. Using LINK switches, you define each link and 
each path. 

At the top of the tree is the root link, which must contain the main 
program. First-level links are below the root link; each first-level 
link is connected to the root link by one path. 

Second-level links are below the first-level links, and each is 
connected by a path to exactly one first-level link. A link at level 
n is connected by a path to exactly one link at level n-1. 

Notice that a link can have more than one downward path (to successor 
links) , but only one upward path (to ancestor links) . 

Figure 11-1 shows a diagram of an overlay structure with 5 links. The 
root link is TEST; the first-level links are LEFT and RIGHT; the 
second-level links are LEFT1 and LEFT2. 



TEST 



LEFT 



RIGHT 



LEFT1 



LEFT2 



Figure 11-1 Example of an Overlay Structure 
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Defining an overlay structure allows your program to execute in a 

smaller space. This is because the code in a given link is allowed to 

make reference to memory only in links along a direct upward or 
downward path. 

In the structure in Figure 11-1/ the link LEFT can reference memory in 
itself, in the root link TEST, or in its successor links LEFT1 and 
LEFT2. More generally, a link can reference memory in any link that 
is vertically connected to it. 

Referencing memory in any other link is illegal; for example, a path 
from LEFT1 to LEFT2 is not a direct upward or downward path. 

Because of this restriction on memory references, only one complete 
vertical path (at most) is required in the virtual address space at 
any one time. The remaining links can be stored on disk while they 
are not needed. 

LINK has a family of overlay-related switches for defining overlays. 
These switches are described in detail in the LINK Reference Manual. 
The following example shows command strings for defining the overlay 
diagrammed in Figure 11-1. 



TEST/LOG/LOGLEVEL : 2 

/ERR0RLEVEL:5 

TEST/OVERLAY 

TEST/MAP 

LPT: TEST/PLOT 

CBL0,CBL1/LINK:TEST 

/NODE: TEST CBL2 ,CBL3/LINK: LEFT 

/NODE: LEFT CBL5/LINK : LEFT1 
/NODE: LEFT CBL6/LINK :LEFT2 

/NODE:TEST CBL4/LINK:RIGHT 
TEST/SAVE 
/E/GO 



Define TEST. LOG 
Important messages 
Define TEST.OVL 
Define TEST. MAP 
Request diagram 
Root link 
Left branch 
Left-left branch 
Left-right branch 
Right branch 
Define TEST. EXE 
Execute now 



The first command string above defines the .LOG file for the overlay. 
TEST/LOG specifies that the file is named TEST. LOG. The /L0GLEVEL:2 
switch directs that only LINK messages at level 2 or greater be 
written in the .LOG file. 

In the second command string, the /ERRORLEVEL: 5 switch directs that 
messages below the level of 5 be suppressed for terminal typeout. The 
third command string, TEST/OVERLAY, tells LINK that an overlay 
structure is to be defined and that the file for the overlay is to be 
TEST.OVL. 

The fourth command string, TEST/MAP, defines the file TEST. MAP for 
overlay symbol maps. 

The next command string, LPT:TEST/PLOT directs that a diagram of the 
overlay links be printed on the line printer. 

The next command string, CBL0,CBL1/LINK:TEST, loads the files CBLO.REL 
and CBL1.REL into the root link. The /LINK:TEST switch tells LINK 
that no more modules are to be in the root link and that the link name 
is TEST. 

Each of the next four lines defines one link with a string of the 
form: 

/NODE:linkname f ilenames/LINK: linkname 
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where: 



/NODE:/linkname specifies the previously defined link 

to which the present link is an 
immediate successor. 

f ilenames/LINK:linkname names the files in the current link 

and specifies the name of the link. 

The first of these four lines begins with /NODE:TEST, which tells LINK 
that the link being defined is to be an immediate successor to TEST, 
the root link. Then (on the same line) , the string 
CBL2,CBL3/LINK:LEFT loads the files CBL2.REL and CBL3.REL, ends the 
link, and names the link LEFT. 

The next line, /NODE:LEFT CBL5/LINK:LEFT1 , defines a link named LEFT1 
containing the file CBL5.REL, and this link is an immediate successor 
to the link LEFT. 

The next line, /NODErLEFT CBL6/LINK:LEFT2, defines another immediate 
successor to LEFT, this time containing the file CBL6.REL and called 
LEFT2. 

The last link is defined in the next line, /NODE:TEST CBL4/LINK: RIGHT. 
This string defines the link RIGHT, which is an immediate successor to 
TEST and contains the file CBL4.REL. 

The next-to-last line in the example, TEST/SAVE, directs LINK to 
create the saved file TEST. EXE. The last line, /E/GO, specifies that 
the loaded program is to be executed and that all commands to LINK are 
completed. 



11.3.4 The /SPACE Switch to LINK 

For a COBOL overlay structure to execute properly, it must have free 
memory in its root link for the following uses: 

1. General-purpose I/O buffers 

2. I/O buffers and file tables for sorting 

3. Label record area for multireel files 

4. File index blocks for split index blocks of ISAM files 
The /SPACE switch to LINK reserves free memory. It has the form: 

/SPACE :n 

where n is the decimal number of words to be reserved. 

The /SPACE switch is used in the root link. For example, to allocate 
5000 words of free memory in the overlay example above, you would 
type : 

CBL0,CBL1/SPACE:5000/LINK:TEST 

There are two types of space needed in the root link of a COBOL 
overlay: space for buffers and space for dynamic allocation. 
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Use the following guidelines to compute the free memory needed for 
buffers : 

1. Two buffers are needed for each sequential file and one 
additional buffer is needed for each extra area used in the 
program. 

For an unblocked sequential file (on disk or magnetic tape) , 
each buffer is 128 words. For example, the buffer space 
needed for one sequential file on disk with one alternate 
area is 3*128 = 384 words. 

For a blocked sequential file on magnetic tape, the buffer 
size is the blocksize (record-size*records/block) . For 
example, the buffer space needed for one blocked sequential 
file with 100 records per block and records of 100 words each 
is 2*100*100 = 20000 words. 

2. One buffer is needed for each random-access file and one for 
each file that is open for I/O. The buffer size is the 
number of 128-word blocks needed to hold the logical block, 
plus seven words. 

For example, a random-access file with logical blocks of 25 
10-word records has a block size of 250 words. The smallest 
number of 128-word blocks containing 250 words is 2 (= 256 
words). Therefore the buffer size is 256 + 7 = 263 words. 

3. Indexed-sequential files require one buffer for each file. 
The buffer size is the sum of the following: 

a. Enough 128-word blocks to contain a logical block for 
each level of the index file. 

b. Enough 128-word blocks to contain a logical block of 
data. 

c. A number of 128-word blocks equal to the number used in 
an index block. These are used for storage allocation 
tables. 

d. One 128-word block for the statistics block. 

e. One 128-word block for the index table. 

f. A number of words equal to the largest index key-size, 
plus two words. 

g. A number of words equal to the largest blocking factor of 
all the indexed-sequential files in the program. For 
example, if the largest blocking factor is 10, then 10 
words are required in the buffer. 

h. Enough 128-word blocks to contain the largest of the data 
or index blocks in all indexed-sequential files in the 
program. 
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For example, to compute the buffer size for an indexed 
sequential file with four levels, with 128-word index 
blocks and 256-word data blocks, compute as follows: 

512 Four 128-word index blocks 

256 One 256-word data block 

128 One 128-word storage allocation table 

block 
128 One 128-word statistics block 
128 One 128-word index table block 
256 Two 128-word blocks for the largest of 
all data or index blocks 
2 Two words for the largest blocking factor 
4 2-word index key plus two words 

Total 1414 Buffer size (in words) 

Use the following guidelines to compute the amount of free memory 
needed for dynamic allocation during program execution: 

1. The size of the label-record area for a multireel file. This 
size is 16 words for standard labels. For nonstandard 
labels, the size is the number of characters in the label 
divided by 5. 

2. The size of the index block of an indexed-sequential file if 
the top index block is split. 

3. The size of the sort I/O buffers if sorting is used in the 
program. This size is calculated as the number of devices 
assigned to the sort file in the SELECT clause times two (for 
two buffers for each file) plus 26 words for each file table 
for each device. 

For example, for a sort file with four assigned devices, calculate 
buffers as follows: 

4 * 128 words *2 + (4 * 26 words) = 1128 words 

NOTE 

This calculation reflects only the 

requirements needed by COBOL. See also 

the SORT User's Guide for sort 
requirements. 

If you do not allocate sufficient free memory with the /SPACE switch, 
either your program will not begin execution or it will fail during 
execution. 



11.3.5 The CANCEL Statement 

You can use the CANCEL statement in a COBOL subprogram overlay 
structure to reduce memory size during program execution. This 
statement has the form: 

CANCEL subprogram-1 [ ,subprogram-2] . . . . 

where each named subprogram is in one of the overlay links. 

11-13 



PROGRAM SEGMENTS, SUBPROGRAMS, AND OVERLAYS 

The CANCEL statement creates a call to the REMOV. Overlay Handler 
subroutine. This directs removal from core of the links containing 
the named subroutines, along with all their successor links. The 
Overlay Handler attempts to return the recovered memory. 

A CANCEL statement cannot direct removal of its own link or of any of 
its ancestor links, including the root link. 

In the overlay structure diagrammed in Figure 11-1/ for example, a 
subprogram loaded into the link LEFT can CANCEL subprograms in link 
LEFT1, LEFT2, or both. But it cannot CANCEL subprograms in its own 
link, LEFT, or in the root link, TEST. 



11.3.6 Examples 

The following pages show terminal listings of files associated with 
the example above. These pages are: 

1. COBOL listing files for the programs used in the overlay 
(seven pages) 

2. Terminal copy of the interactive use of LINK to define and 
execute the overlay (two pages) 

3. The file TEST. MAP, generated by LINK, which shows symbol maps 
for the overlay (eight pages) 
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.TY SEGPRG.TTY 
PROGRAM CBLO 

26-OCT-78 10:59 
CBLO.CBL 22-NOV-77 19:00 



COBOL-74 12(600) BIS 
PAGE 1 



I 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 



ID DIVISION. 
PROGRAM-ID. CBLO. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 



01 



INFO. 
02 
02 
02 
02 
02 
02 



'We're at level 



LEVMSG PIC X(15) USAGE IS DISPLAY-7 VALUE 

LEVEL PIC 9V VALUE 0. 

PGMMSG PIC X(12) USAGE IS DISPLAY-7 VALUE " in program 

CALMSG PIC X(9) USAGE IS DISPLAY-7 VALUE " calling ". 

RETMSG PIC X(12) USAGE IS DISPLAY-7 VALUE "Returned to 

B PIC X(8) VALUE " 
01 PGMNAM PIC X(6) VALUE "CBLO". 

01 ENDMSG PIC X{18) USAGE IS DISPLAY-7 VALUE "Execution ends in ' 
PROCEDURE DIVISION. 

DISPLAY LEVMSG , LEVEL , PGMMSG , PGMNAM. 
DISPLAY PGMNAM,CALMSG,"CBL2A". 
CALL CBL2A USING INFO. 
DISPLAY RETMSG, PGMNAM. 
DISPLAY PGMNAM,CALMSG,"CBL4". 
CALL CBL4 USING INFO. 
DISPLAY RETMSG, PGMNAM. 
DISPLAY PGMNAM, CALMSG, "CBL2B". 
CALL CBL2B USING INFO. 
DISPLAY RETMSG, PGMNAM. 
DISPLAY ENDMSG, PGMNAM. 
STOP RUN. 



NO ERRORS DETECTED 
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SUB C B L 1 COBOL-74 12(600) BIS 

26-OCT-78 10:59 PAGE 1 
CBL1.CBL 22-NOV-77 19:00 

0001 ID DIVISION. 

0002 PROGRAM-ID. CBL1. 

0003 DATA DIVISION. 

0004 WORKING-STORAGE SECTION. 

0005 01 PGMNAM PIC X(6) VALUE "CBL1" . 

0006 LINKAGE SECTION. 

0007 01 INFO. 

0008 02 LEVMSG PIC X(15) USAGE IS DISPLAY-7. *0 

0009 02 LEVEL PIC 9V. j* 

0010 02 PGMMSG PIC X(12) USAGE IS DISPLAY-7. fi 

0011 02 CALMSG PIC X(9) USAGE IS DISPLAY-7. M 

0012 02 RETMSG PIC X(12) USAGE IS DISPLAY-7. I> 

0013 02 B PIC X(8) . * 

0014 PROCEDURE DIVISION USING INFO. OT 

0015 ADD 1 TO LEVEL. W 

0016 DISPLAY B,B, LEVMSG, LEVEL, PGMMSG, PGMNAM. ffi 

0017 DISPLAY B,B,"CBL1 doesn't call anything" * 

0018 SUBTRACT 1 FROM LEVEL. g 

0019 GOBACK. 1-3 

CO 
NO ERRORS DETECTED " 
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SUB C B L 2 COBOL-74 12(600) BIS 

26-OCT-78 10:59 PAGE 1 
CBL2.CBL 22-NOV-77 19:00 

0001 ID DIVISION. 

0002 PROGRAM-ID. CBL2. 

0003 DATA DIVISION. 

0004 WORKING-STORAGE SECTION. 

0005 01 PGMNAM PIC X(6) VALUE "CBL2". 

0006 01 ENTNAM PIC X(6). 

0007 01 ENTMSG PIC X(4) USAGE IS DISPLAY-7 VALUE " at ". 

0008 LINKAGE SECTION. *0 

0009 01 INFO. £* 

0010 02 LEVMSG PIC X(15) USAGE IS DISPLAY-7. 2 

0011 02 LEVEL PIC 9V. « 

0012 02 PGMMSG PIC X(12) USAGE IS DISPLAY-7. > 

0013 02 CALMSG PIC X(9) USAGE IS DISPLAY-7. 5C 

0014 02 RETMSG PIC X(12) USAGE IS DISPLAY-7. m 

0015 02 B PIC X(8) . tq 

0016 PROCEDURE DIVISION. O 

0017 ENTRY CBL2A USING INFO. 3j 

0018 ADD 1 TO LEVEL. § 

0019 MOVE "CBL2A" TO ENTNAM. h3 

0020 DISPLAY B , LEVMSG , LEVEL, PGMMSG , PGMNAM, ENTMSG, ENTNAM. CO 

0021 DISPLAY B, PGMNAM, CALMSG, "CBL5". " 

0022 CALL CBL5 USING INFO. w 

0023 DISPLAY B, RETMSG , PGMNAM. G 

0024 DISPLAY B, PGMNAM, CALMSG , "CBL6" . W 

0025 CALL CBL6 USING INFO. g 

0026 DISPLAY B, RETMSG , PGMNAM. g 

0027 SUBTRACT 1 FROM LEVEL. £} 

0028 GOBACK. W 

0029 ENTRY CBL2B USING INFO. ^ 

0030 ADD 1 TO LEVEL. fo 

0031 MOVE "CBL2B" TO ENTNAM. „ 

0032 DISPLAY B , LEVMSG , LEVEL, PGMMSG , PGMNAM, ENTMSG , ENTNAM. 

0033 DISPLAY B,"CBL2B doesn't call anything". > 

0034 SUBTRACT 1 FROM LEVEL. q 



0035 GOBACK. 

NO ERRORS DETECTED 
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SUB C B L 3 
26-OCT-78 11:00 
CBL3.CBL 16-NOV-77 



COBOL-74 12(600) BIS 
PAGE 1 
19:00 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 



ID DIVISION. 

PROGRAM-ID. CBL3. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 PGMNAM PIC X(6) VALUE "CBL3' 

LINKAGE SECTION. 



01 



INFO. 
02 
02 
02 
02 
02 
02 



LEVHSG PIC X(15) USAGE IS DISPLAY-7. 

LEVEL PIC 9V. 

PGMMSG PIC X(12) USAGE IS DISPLAY-7. 

CALMSG PIC X(9) USAGE IS DISPLAY-7. 

RETMSG PIC X(12) USAGE IS DISPLAY-7. 

B PIC X(8) . 
PROCEDURE DIVISION USING INFO. 
ADD 1 TO LEVEL. 

DISPLAY B , B , B , LEVMSG , LEVEL , PGMMSG , PGMNAM . 
DISPLAY B,B,B,"CBL3 doesn't call anything". 
SUBTRACT 1 FROM LEVEL. 
GOBACK. 



NO ERRORS DETECTED 
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SUB C B L 4 
26-OCT-78 11:00 
CBL4.CBL 16-NOV-77 



COBOL-74 12(600) BIS 
PAGE 1 
19:00 



I 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 



ID DIVISION. 

PROGRAM-ID. CBL4. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 PGMNAH PIC X{6) VALUE 

LINKAGE SECTION. 



■CBL4". 



01 



INFO. 
02 
02 
02 
02 
02 
02 



LEVMSG PIC X(15) USAGE IS DISPLAY-7. 

LEVEL PIC 9V. 

PGMMSG PIC X<12) USAGE IS DISPLAY-7. 

CALMSG PIC X(9) USAGE IS DISPLAY-7. 

RETMSG PIC X(12) USAGE IS DISPLAY-7. 

B PIC X{8) . 
PROCEDURE DIVISION USING INFO. 
ADD 1 TO LEVEL. 

DISPLAY B, LEVMSG, LEVEL, PGMMSG, PGMNAH. 
DISPLAY B,PGMNAM, CALMSG, "CBL1". 
CALL CBL1 USING INFO. 
DISPLAY B, RETMSG, PGMNAM. 
SUBTRACT 1 FROM LEVEL. 
GOBACK . 



NO ERRORS DETECTED 
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SUB C B L 5 COBOL-74 12(600) BIS 

26-OCT-78 11:00 PAGE 1 
CBL5.CBL 16-NOV-77 19:00 

0001 ID DIVISION. 

0002 PROGRAM-ID. CBL5. 

0003 DATA DIVISION. 

0004 WORKING-STORAGE SECTION. 

0005 01 PGMNAM PIC X(6) VALUE "CBL5". 

0006 LINKAGE SECTION. 

0007 01 INFO. 

0008 02 LEVMSG PIC X(15) USAGE IS DISPLAY-7. *0 

0009 02 LEVEL PIC 9V. 3 

0010 02 PGMMSG PIC X(12) USAGE IS DISPLAY-7. q 

0011 02 CALMSG PIC X(9) USAGE IS DISPLAY-7. « 

0012 02 RETMSG PIC X(12) USAGE IS DISPLAY-7. > 

0013 02 B PIC X(8) . •* 

0014 PROCEDURE DIVISION USING INFO. m 

0015 ADD 1 TO LEVEL. M 

0016 DISPLAY B,B, LEVMSG, LEVEL, PGMMSG, PGMNAM. g 

0017 DISPLAY B,B,"CBL5 doesn't call anything". j* 

0018 SUBTRACT 1 FROM LEVEL. g 

0019 GOBACK. t-3 

co 

NO ERRORS DETECTED * 
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SUB C B L 6 COBOL-74 12(600) BIS 

26-OCT-78 11:00 PAGE 1 
CBL6.CBL 16-NOV-77 19:00 

0001 ID DIVISION. 

0002 PROGRAM-ID. CBL6. 

0003 DATA DIVISION. 

0004 WORKING-STORAGE SECTION. 

0005 01 PGMNAM PIC X(6) VALUE "CBL6". 

0006 LINKAGE SECTION. 

0007 01 INFO. 

0008 02 LEVMSC PIC X(15) USAGE IS DISPLAY-7. — 

0009 02 LEVEL PIC 9V. jfl 

0010 02 PGMMSG PIC X{12) USAGE IS DISPLAY-7. O 

0011 02 CALMSG PIC X(9) USAGE IS DISPLAY-7. £} 

0012 02 RETMSG PIC XU2) USAGE IS DISPLAY-7. £ 

0013 02 B PIC X(8) . 3; 

0014 PROCEDURE DIVISION USING INFO. 

0015 ADD 1 TO LEVEL. Jg 

0016 DISPLAY B,B,LEVMSG, LEVEL, PGMMSG, PGMNAM. 2 

0017 DISPLAY B, B, PGMNAM, CALMSG, "CBL3". . 3E 

0018 CALL CBL3 USING INFO. M 

0019 DISPLAY B,B, RETMSG, PGMNAM. 2 

0020 SUBTRACT 1 FROM LEVEL. g 

0021 GOBACK. „ 

NO ERRORS DETECTED 52 

C 

cs 

» 
o 



3E 
CO 



> 
z 
o 

o 

< 

> 

K 
CO 






@R LINK 

*TEST/L0G/LOGLEVEL: 5 

*/ERR0RLEVEL:5 

*TEST/OVERLAY 

*TEST/MAP 

*CBLO ,CBL1/LINK :TEST 

[LNKLHN Loading module CBLO] 

[LNKLMN Loading module CBLl] 

[LNKLMN Loading module OVRLAY] 

[LNKLMN Loading module LILOWS] 

[LNKLMN Loading module CON012] 

[LNKLMN Loading module TRACED] 

[LNKLMN Loading module USRDSL] 

[LNKELN End of link number 0, name TEST] 

* /NODE: TEST CBL2 ,CBL3/LINK : LEFT 
[LNKLMN Loading module CBL2] 

[LNKLMN Loading module CBL3] 
[LNKELN End of link number 1 

* /NODE: LEFT 
[LNKLMN Loading module CBL5] 
[LNKELN End of link number 2 

* /NODE: LEFT 
[LNKLMN Loading module CBL6] 
[LNKELN End of link number 3 

* /NODE .-TEST CBL4/LINK : RIGHT 
[LNKLMN Loading module CBL4] 
[LNKELN End of link number 4, name RIGHT] 
*TEST/SAVE 
*/E/GO 
[LNKXCT CBLO Execution] 



[Define TEST. LOG 
[Important msgs 
[Define TEST.OVL 
[Define TEST. MAP 
[Root link 



name LEFT] 

CBL5/LINK:LEFT1 

name LEFT1] 

CBL6/LINK:LEFT2 

name LEFT2] 



[Left branch 

:Left-left branch 
[Left-right branch 
[Right branch 
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We're at level in program CBLO 
CBLO calling CBL2A 

We're at level 1 in program CBL2 at CBL2A 
CBL2 calling CBL5 

We're at level 2 in program CBL5 
CBL5 doesn't call anything 
Returned to CBL2 
CBL2 calling CBL6 

We're at level 2 in program CBL6 
CBL6 calling CBL3 

We're at level 3 in program CBL3 

CBL3 doesn't call anything ^ 

Returned to CBL6 2 

O 

3 



Returned to CBL2 
Returned to CBLO 
CBLO calling CBL4 



We're at level 1 in program CBL4 •* 

CBL4 calling CBL1 w 

We're at level 2 in program CBL1 M 

CBLl doesn't call anything Ci 

Returned to CBL4 3* 

Returned to CBLO 2 

CBLO calling CBL2B ,-g 

We're at level 1 in program CBL2 at CBL2B CO 

CBL2B doesn't call anything "* 

Returned to CBLO m 

•— ' Execution ends in CBLO G 
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LINK symbol map of TEST version 12(600) 
Produced by LINK version 4{765) on 6-Dec-78 at 13:31:10 



page 1 



Overlay no. name TEST 

Low segment starts at ends at 3106 length 3107 = 4P 

High segment starts at ends at 3462 length 3463 = 4P 

Control Block address is 3047, length 30 (octal), 24. (decimal) 

441 words free in Low segment, 211 words free in high segment 

322 Global symbols loaded, therefore min. hash size is 358 

Start address is 400010, located in program CBL0 

************* 

JOBDAT- INITIAL-SYMBOLS 

Zero length module 

************* 



LIBOL-STATIC-AREA 

Low segment starts at 



.COMM. 



140 
************* 



140 ends at 
Common length 



1477 length 
736. 



1340 (octal) , 736. 
.COMM. 140 



CBL0 



I 

to 



from DSK:CBL0.REL[4,70] created by COBOL-74 on 6-Dec-78 at 13:29:00 
Low segment starts at 1500 ends at 1747 length 250 (octal) 
High segment starts at 400010 ends at 400214 length 205 (octal) 



CBL0 



400022 Entry Relocatable 



************* 



CBLl 



from DSK:CBL1.REL[4,70] created by COBOL-74 on 6-Dec-78 at 13:30:00 
Low segment starts at 1750 ends at 2167 length 220 (octal) 

High segment starts at 400215 ends at 400440 length 224 (octal) 

CBLl 400217 Entry Relocatable 

************* 



168. 
133. 



144. 
148. 



OVRLAY 



from SYS : OVRLAY. REL[ 1,4] created by MACRO on 2E 
Low segment starts at 2170 ends at 2671 length 
High segment starts at 400441 ends at 403462 length 



-Aug-78 at 14:38:00 



(decimal ) 
Common length 



(decimal ) 
(decimal ) 



736. 



(decimal ) 
(decimal ) 



BOUT 


104000000051 


Global 


Absolute 


ERJMP 


320700000000 


Global 


Absolute 


GCVEC 


104000000300 


Global 


Absolute 


GTJFN 


104000000020 


Global 


Absolute 


INIOV. 


402016 


Entry 


Relocatable 


LOGOV. 


402617 


Entry 


Relocatable 


PBOUT 


104000000074 


Global 


Absolute 


REMOV. 


402045 


Entry 


Relocatable 


RPACS 


104000000057 


Global 


Absolute 


RUNTM 


104000000015 


Global 


Absolute 



502 


(octal) , 322. 


(decimal ] 


1 


3022 


(octal) , 1554. 


(decimal ; 


1 


CLOSF 


104000000022 


Global 


Absolute 


ERSTR 


104000000011 


Global 


Absolute 


GETOV. 


402026 


Entry 


Relocatable 


HALTF 


104000000170 


Global 


Absolute 


JFNS 


104000000030 


Global 


Absolute 


OPENF 


104000000021 


Global 


Absolute 


PSOUT 


104000000076 


Global 


Absolute 


RMAP 


104000000061 


Global 


Absolute 


RUNOV. 


402065 


Entry 


Relocatable 


SFPTR 


104000000027 


Global 


Absolute 
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LINK symbol map of 



TEST 



version 12(600) 



page 2 



OVRLAY 
















SIN 


104000000052 


Global 


Absolute 


SOUT 


104000000053 




TIME 


104000000014 


Global 


Absolute 


%OVRLA 


400000037 




.FHSLF 


400000 


Global 


Absolute Suppressed 


. OVRLA 


2171 




. OVRLO 


2176 


Global 


Relocatable 


. OVRLU 


402346 




. OVRWA 


2175 


Global 


Relocatable 







Global Absolute 

Global Absolute Suppressed 

Entry Relocatable 

Entry Relocatable 



************* 



LILOWS from SYS:C74LIB.REL[1,4] created by MACRO on 24-Oct-78 at 8:39:00 
Zero length module 



I 



************* 



CON012 from SYS:C74LIB.REL [1,4] created by MACRO on 24-Oct-78 at 8:39:00 

Low segment starts at 2672 ends at 3036 length 145 (octal) , 101. 



CN.12 

GJ%OLD 

GT%ADR 

JS%GEN 

JS%PAF 

PA%PRV 



2672 

100000000000 

200000 

70000000 

1 

200000000 

************* 



Entry Relocatable 

Global Absolute 

Global Absolute 

Global Absolute 

Global Absolute 

Global Absolute 



Suppressed 
Suppressed 
Suppressed 
Suppressed 
Suppressed 



COBST. 
GJ%SHT 
JS%DIR 
JS%NAM 
JS%TYP 



2672 

1000000 

70000000000 

7000000000 

700000000 



TRACED from SYS:C74LIB.REL[1,4] created by MACRO on 24-Oct-78 at 
Low segment starts at 3037 ends at 3046 length 

BTRAC. 
CBDDT. 
HSRPT. 
SBPSG. 
TRPD. 

************* 



USRDSL from SYS:C74LIB.REL[1,4] created by MACRO on 24-Oct-78 at 8:39:00 
Zero length module 

************* 



3042 


Entry 


Relocatable 


3044 


Entry 


Relocatable 


3042 


Entry 


Relocatable 


3042 


Entry 


Relocatable 


3043 


Entry 


Relocatable 



(decimal) 

Global 
Global 
Global 
Global 
Global 



Relocatable 

Absolute 

Absolute 

Absolute 

Absolute 



Suppressed 
Suppressed 
Suppressed 
Suppressed 



8:39: 


:00 






10 


(octal) , 


8. 


(decimal) 


C.TRCE 




3037 


Entry 


CNTRC. 




3042 


Entry 


PTFLG. 




3045 


Global 


SFOV. 




3042 


Entry 


TRPOP. 
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Relocatable 
Relocatable 
Relocatable 
Relocatable 
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Overlay no. 1 name LEFT 

Low segment starts at 7107 ends at 7642 length 534 = IP 

High segment starts at 3463 ends at 4466 length 1004 = 2P 

Control Block address is 7577, length 30 (octal), 24. (decimal) 

Path is 

93 words free in Low segment, 211 words free in high segment 

23 Global symbols loaded, therefore min. hash size is 26 

************* 

CBL2 from DSK :CBL2.REL[4,70] created by COBOL-74 on 6-Dec-78 at 13:30:00 O 

Low segment starts at 7107 ends at 7356 length 250 (octal), 168. (decimal) <D 

High segment starts at 403463 ends at 404226 length 544 (octal), 356. (decimal) <tf 

CBL2 403465 Entry Relocatable CBL2A 403503 Entry Relocatable ^ 

CBL2B 403766 Entry Relocatable 03 

W 

************* a 

2 

a 

CBL3 from DSK:CBL3.REL{4 ,70] created by COBOL-74 on 6-Dec-78 at 13:30:00 25 

Low segment starts at 7357 ends at 7576 length 220 (octal), 144. (decimal) HI 

High segment starts at 404227 ends at 404466 length 240 (octal), 160. (decimal) ^ 

CBL3 404231 Entry Relocatable 01 
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Overlay no. 2 name LEFT1 

Low segment starts at 7643 ends at 10110 length 246 = IP 

High segment starts at 4467 ends at 4712 length 224 = IP 

Control Block address is 10063, length 16 (octal) , 14. (decimal) 

Path is 0, 1 

439 words free in Low segment, 211 words free in high segment 

18 Global symbols loaded, therefore min. hash size is 21 

************* 

w 

CBL5 from DSK :CBL5 . REL [4 , 70] created by COBOL-74 on 6-Dec-78 at 13:30:00 O 

Low segment starts at 7643 ends at 10062 length 220 (octal), 144. (decimal) G5 

High segment starts at 404467 ends at 404712 length 224 (octal), 148. (decimal) |3 

CBL5 404471 Entry Relocatable 
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Overlay no. 3 name LEFT2 

Low segment starts at 7643 ends at 10112 length 250 = IP 

High segment starts at 4467 ends at 5204 length 516 = IP 

Control Block address is 10065, length 16 (octal) , 14. (decimal) 

Path is 0, 1 

437 words free in Low segment, 211 words free in high segment 

19 Global symbols loaded, therefore min. hash size is 22 

************* 

CBL6 from DSK:CBL6.REL[4 ,70] created by COBOL-74 on 6-Dec-78 at 13:30:00 2 

Low segment starts at 7643 ends at 10064 length 222 (octal), 146. (decimal) q 

High segment starts at 404713 ends at 405204 length 272 (octal), 186. (decimal) S3 

CBL6 404715 Entry Relocatable ^ 

CO 

************* pq 

O 

3 

a 
3 

i-3 
co 

CO 

a 
w 
v 
» 
o 
o 



5 

SB 
CO 



> 

z 
o 

o 
< 

M 

> 
CO 



I 

U) 

o 
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Overlay no. 4 name RIGHT 

Low segment starts at 7107 ends at 7356 length 250 = IP 

High segment starts at 3463 ends at 5454 length 1772 = 2P 

Control Block address is 7331, length 16 (octal), 14. (decimal) 

Path is 

273 words free in Low segment, 211 words free in high segment 

19 Global symbols loaded, therefore min. hash size is 22 

************* 

HO 

CBL4 from DSK :CBL4 . REL [ 4 , 70] created by COBOL-74 on 6-Dec-78 at 13:30:00 O 

Low segment starts at 7107 ends at 7330 length 222 (octal), 146. (decimal) (75 

High segment starts at 405205 ends at 405454 length 250 (octal), 168. (decimal) g 
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CHAPTER 12 
CALLING NON-COBOL SUBPROGRAMS 



Some programming tasks are more conveniently done in a language other 
than COBOL. You can write non-COBOL subprograms for these tasks, and 
then call the subprograms from COBOL programs. 

To call a non-COBOL subprogram, use the ENTER verb in the PROCEDURE 
DIVISION. The call has the form: 

ENTER language entry-name [USING string-1 [ ,string-2] . . . ] . 

where: 

language is the name of the compiler that generated the 
subprogram. 

entry-name is the name of the entry point you want to call. 

string is one or more identifiers, literals, or 
procedure-names. 

The compilers that can generate COBOL-callable subprograms are COBOL, 
FORTRAN, and MACRO. The phrase ENTER COBOL is equivalent to CALL and 
is not discussed further here. 

The entry point used in the ENTER statement must be an entry-name 
symbol generated by the compiler for the called program. COBOL 
generates an entry-name for each ENTRY statement and program-name. 
FORTRAN generates an entry-name for each SUBROUTINE, FUNCTION, and 
ENTRY statement. MACRO generates an entry-name for each ENTRY 
statement. 

NOTE 

You can use the weaker MACRO statement INTERN instead 
of ENTRY if you explicitly load the MACRO module. 
ENTRY is required only if the module must be loaded in 
a library search. 

In the USING clause, using an identifier passes the value of the 
identifier to. the called subprogram; using a literal passes the 
literal to the subprogram; using a procedure-name passes the address 
of the beginning of the named procedure, which can be used for 
alternate returns. FORTRAN cannot accept DISPLAY-6 (SIXBIT) , 
DISPLAY-9 (EBCDIC), or COMP-3 (packed-decimal) data. 



12.1 CALLING FORTRAN SUBPROGRAMS 

When the COBOL compiler finds an ENTER FORTRAN statement, it generates 
a call for the named subprogram. If the ENTER statement contains a 
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USING clause, the values indicated by the given identifiers, literals, 
and procedure-names are passed to the subprogram. 

FORTRAN programs called by COBOL programs should not use blank COMMON, 
even among themselves. Doing so can overwrite storage in the COBOL 
program. 

NOTE 

I/O operations can be performed only in subprograms 
that are written in the same language as the main 
program. In addition, APR trap handling is performed 
in a manner consistent with the language used in the 
main program. 

In the following example, the COBOL program CFSQRT calls the FORTRAN 
subprogram FSQRT to perform a square-root operation. The following 
list shows how values are passed from the main program to the 
subprogram: 



Use of 
Value 


COBOL 
Identifier 


FORTRAN 
Variable 


Input number 

Answer 

Error message location 

Exit message location 


INPUT-NUMBER 
ANSWER 

ERROR-MESSAGE 
EXIT-MESSAGE 


INPUT 
ANSWER 
ERRMSG 
EXMSG 



The following is the source file for the COBOL program CFSQRT: 

ID DIVISION. 

PROGRAM-ID. CFSQRT. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 INPUT-NUMBER USAGE COMP-1. 

01 ANSWER USAGE COMP-1. 

PROCEDURE DIVISION. 

LOOP. 

DISPLAY 'Type a positive integer.'. 

ACCEPT INPUT-NUMBER. 

ENTER FORTRAN FSQRT USING INPUT-NUMBER, ANSWER, 
ERROR-MESSAGE , EXIT-MESSAGE . 

DISPLAY ANSWER. 

GO TO LOOP. 
ERROR-MESSAGE. 

DISPLAY 'No negative numbers, please.'. 

GO TO LOOP. 
EXIT-MESSAGE. 

DISPLAY 'Thank you.'. 

STOP RUN. 

The following is the source file for the FORTRAN program FSQRT: 

SUBROUTINE FSQRT( INPUT, ANSWER, * ,*) 

REAL INPUT 

INTEGER ERRMSG, EXMSG 

ERRMSG=1 

EXMSG=2 

IF( INPUT. LT.0) RETURN ERRMSG 

IF( INPUT. EQ.0) RETURN EXMSG 

ANSWER=SQRT ( INPUT) 

RETURN 

END 

12-2 
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In the following lines, these two source programs are executed. Each 
positive integer input yields its square root; a negative number 
yields an error message at an alternate return in the COBOL program; 
yields the exit message at another alternate return. Note that the 
TOPS-10 system prompt could be replaced by the TOPS-20 prompt (@) 
without altering the example - the programs run exactly the same way 
under TOPS-20. 

.EX CFSQRT.CBL,FSQRT.FOR 

FORTRAN: FSQRT 

FSQRT 

COBOL: CFSQRT [CFSQRT. CBL] 

LINK: Loading 

[LNKXCT CFSQRT Eexcution] 

Type a positive integer. 

4 

2.0E0 

Type a positive integer. 

3 

1.7320508E0 

Type a positive integer. 

2 

1.4142136E0 

Type a positive integer. 

1 

1.0E0 

Type a positive integer. 

-1 

No negative numbers, please. 

Type a positive integer. 



Thank you. 

EXIT 



12.2 CALLING MACRO SUBPROGRAMS 

When the COBOL compiler finds an ENTER MACRO statement, it generates 
the standard calling sequence: 

MOVEI 16,arglist 
PUSHJ 17, entry point 

where arglist is the address of the first word of the argument list, 
and entry point is an entry-name symbol. 

If the ENTER statement contains a USING clause, the compiler creates 
an argument list containing an entry for each identifier or literal in 
the clause. The word immediately preceding the argument list is of 
the form: 

-length, , 

where length is the number of arguments in the list. If no USING 
clause appears in the ENTER statement, the length of the list is 
(but the length word still appears) . 
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Each entry in the argument list is a 36-bit storage word of the form: 
I | Code | Effective Address (E) I 

| = = = = = = = = = = = = = = = = = = = . = = = = = = „ = = = = = = „ = „ = =;„« = = = = = = | 

8 9 12 13 35 

where code is a 4-bit code (described below) , and bits 13-35 contain 
the effective address (E) of the first word of the argument. 

If the passed argument is a 1-word COMP item, the code is 2 and E is 

the location of the argument. 

If the passed argument is a 2-word COMP item, the code is 11 (octal) 
and E is the location of the first word of the argument; the second 
word of the argument is at E+l. 

If the passed argument is a COMP-1 item, the code is 4 and E is the 
location of the argument. 

If the passed argument is a DISPLAY-6 or DISPLAY-7 item, the code is 
15 (octal) and E is the location of a 2-word descriptor for the 
argument. The first word of the descriptor is a byte pointer word 
pointing to the argument. Its byte size is 6 for DISPLAY-6 or 7 for 
DISPLAY-7. 

The second word of the descriptor is of the form: 

bit numeric flag 

bit 1 signed number flag 

bit 2 figurative constant flag 

bit 3 literal flag 

bits 4-11 reserved 

bit 12 flag for Ps preceding decimal point in PICTURE 

bits 13-17 number of decimal places (if bit 12 is 0) , or 
number of Ps (if bit 12 is 1) 

bits 18-35 number of bytes in the item 

If the passed argument is a procedure-name (not allowed in a call to a 
COBOL subprogram) , the code is 7 and E is the location of the first 
word of the procedure. 

In the following example, the COBOL program CMSQRT calls the MACRO 
subprogram MSQRT to perform a square-root operation. (The subprogram 
uses the FORLIB routine SQRT to take the square root.) 

The argument list generated by the ENTER MACRO statement is as 
follows : 



-4,,0 
ARGLST: Z 4, address 
Z 4, address 
Z 7, address 
Z 7, address 



-Arglength , , 

<4B12>&<Address of 1st COMP-1 item> 

<4B12>&<Address of 2nd COMP-1 item> 

<7B12>&<Address of 1st procedure> 

<7B12>&<Address of 2nd procedure> 
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The following is the source file for the COBOL program CMSQRT: 

ID DIVISION. 

PROGRAM-ID. CMSQRT. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 INPUT-NUMBER USAGE COMP-1. 

01 ANSWER USAGE COMP-1. 

PROCEDURE DIVISION. 

LOOP. 

DISPLAY 'Type a positive integer.'. 

ACCEPT INPUT-NUMBER. 

ENTER MACRO MSQRT USING INPUT-NUMBER , ANSWER , 
ERROR-MESSAGE, EXIT-MESSAGE. 

DISPLAY ANSWER. 

GO TO LOOP. 
ERROR-MESSAGE. 

DISPLAY 'No negative numbers, please.'. 

GO TO LOOP. 
EXIT-MESSAGE. 

DISPLAY 'Thank you. ' . 

STOP RUN. 



The following is the source file for the MACRO program MSQRT. Notice 
that the entry-name MSQRT must be declared ENTRY and that the FORLIB 
routine SQRT, which is to be called, must be declared EXTERNAL. 

Notice also that at NEG and ZERO, the return address in the stack is 

replaced by a procedure-name (address) to set up the alternate 

returns. At POS , the pointer to the argument list must be saved 
before calling SQRT. 



TITLE MSQRT 
ENTRY MSQRT 
EXTERN SQRT 
MSQRT: SKIPN 1,@0(16) 
JRST ZERO 
JUMPL 1,NEG 



POS: 


MOVEM 1,ARG 




MOVEM 16, SAVPTR 




MOVEI 16,l+[-l,,0 




Z 4, ARG] ■ 




PUSHJ 17, SQRT 




MOVE 16, SAVPTR 




MOVEM 0,@1(16) 




POPJ 17, 


ZERO: 


MOVEI 1,@3(16) 




MOVEM 1,0(17) 




POPJ 17, 


NEG: 


MOVEI 1,(32(16) 




MOVEM 1,0(17) 




POPJ 17, 


ARG: 


BLOCK 1 


SAVPTR: 


BLOCK 1 




END 



;Skip if not zero 

;To zero routine 

;To negative routine 

;Fall into positive routine 

;Save arg in reg 1 

;Save return address 

Set up arg for SQRT 

FORLIB square root routine 

Restore return address 

Set up return arg 

Return 

Set up alternate return 

for zero arg 
Return 
Set up alternate return 

for negative arg 
Return 



In the following lines, these two source programs are executed. Since 
neither program is a FORTRAN program, FORLIB must be explicitly 
searched . 
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Each positive integer input yields its square root; a negative number 
yields an error message at an alternate return in the COBOL program; 
yields the exit message at another alternate return. Note that the 
execution of these programs will yield the same output if run under 
TOPS-10. 

@EXE CMSQRT . CBL ,MSQRT . MAC , SYS : FORLIB . REL/SEARCH 

COBOL: CMSQRT [CMSQRT. CBL] 

MACRO: MSQRT 

LINK: Loading 

[LNKXCT CMSQRT Excution] 

Type a positive integer. 

4 

2.0E0 

Type a positive integer. 

3 

1.7320508E0 

Type a positive integer. 

2 

1.4142136E0 

Type a positive integer. 

1 

1.0E0 

Type a positive integer. 

-1 

No negative numbers, please. 

Type a positive integer. 



Thank you. 

EXIT 
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CHAPTER 13 
IMPROVING PERFORMANCE OF COBOL-74 PROGRAMS 



Normally, the code generated by the COBOL-74 compiler is adequately 
efficient. However, since there are certain COBOL-74 constructions 
for which efficient code is not generated, it is possible to write 
programs that perform poorly. If your programmed application performs 
inefficiently, you are left with the following alternatives: 

1. Assume that a higher-performance version of the COBOL-74 
compiler will solve the problem 

2. Purchase new or faster hardware 

3. Redesign the entire program 

4. Rewrite only the bad portions of the program 

Assuming that you are unwilling to wait for an improved compiler or 
purchase new or faster hardware, let us consider the remaining 
alternatives. 

Although redesigning the entire program or application is possible, it 
is expensive and is generally not done. Like any system rewrite, 
however, it does offer the opportunity to add new features and 
eliminate old, out-of-date ones. It is a good alternative, in the 
long run. 

The much cheaper solution is to determine why a program is performing 
poorly and rewrite only the inefficient portions. This normally does 
not require a large effort since most COBOL programs spend 90% of the 
time executing only 10% of their code. The biggest task involves 
determining why a program is inefficient. 

Most programs lend themselves to some improvement. There have been 
many instances where a program used less than half the CPU time after 
improvement than it did before. Most often, the gain is in the range 
of 30%. Most significant is the fact that the reprogramming generally 
involved only 20 lines or less. 

Because some optimization techniques may be contrary to programming 
standards, it is necessary to use discretion when choosing which 
programs to improve and how much to improve them. It is, therefore, 
not recommended that all programs be optimized. For example, little 
is gained if a weekly application has its CPU time cut from 10 to 5 
minutes. A program that runs for 2 hours a day, on the other hand, 
probably should be investigated. 

Program optimization is usually done on an as-needed basis: the 
greater the resource consumption by a program, the greater the 
priority for optimization. Therefore, your installation's programming 
standards should guide programmers towards efficient, partially 
optimized programs. 
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Each computer system is different. Therefore, it is likely that 
installation programming standards will reflect, to some extent, 
practices which promote efficient use of the presently installed 
system. On some systems, for example, the size of a program, the 
number of files open, and the type of devices used will affect a 
program's performance. On other systems, emphasis is placed on data 
types, coding practices, and data patterns. It is normal for a 
programming standard to reflect those practices that normally produce 
efficient results without impairing reliability or maintainability. 

The standard, therefore, could stipulate that all counters, indexes, 
and subscripts be described as COMPUTATIONAL. It could also, as is 
the case with most TOPS-10 and TOPS-20 installations, standardize 
around DISPLAY-6 files because of file space economics. Another 
standard practice is to request that an analysis of the data be made 
and that the program be written to efficiently process it. For 
example, the following program statements make some decisions based on 
the value of a particular item: 

IF ABLE > BAKER GO TO CHARLIE. 
IF ABLE < BAKER GO TO DOG. 
IF ABLE = BAKER GO TO ECHO. 

If the value of ABLE is normally equal to BAKER, the program should be 
reordered with the following statement first: 

IF ABLE = BAKER GO TO ECHO. 

Programming techniques of this type will promote efficiency on 
virtually every system and should be encouraged. 

Any programmer who can write COBOL programs can optimize them. Most 
of the programming tools currently available require minimal knowledge 
of anything other than COBOL. The optimization tools and techniques 
described in this chapter plus the techniques described in your 
installation standard provide most of the information needed to 
improve most COBOL programs. 

It is easy to apply already known optimizations to a program. It 
becomes more difficult to make programs more efficient, however, when 
the known optimization techniques are not applicable. The person who 
can be most successful will be one who understands a little about the 
code generated by the compiler and can read assembler code. By using 
the /A switch option to obtain a listing of the assembly language code 
generated for the program, he/she can determine, from the code 
generated, which alternatives produce the best results. 

There are many ways to make a program more efficient. The best 
results come from good program design. Minimizing disk access, 
segmenting programs into small well-defined pieces, and keeping 
irrelevant information out of records are some ways to gain more 
efficiency. Discussion of these techniques, because they are 
applications-specific, are beyond the scope of this chapter. They are 
mentioned here in order that you will take them into consideration 
when designing your individual applications. The remainder of this 
chapter deals with program improvements. It is a collection of 
techniques that have been used to good advantage by various 
installations . 
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13.1 HOW TO PROCEED WITH PROGRAM OPTIMIZATION 

The actual coding required to optimize a program is 
and not time-consuming. The largest component o 
learning the nature of the problem, that is, determini 
much time is being spent by the program. Therefore 
has been selected for investigation, it is advisable t 
procedure to be followed. This plan should consis 
small steps each designed to improve a small portion o 
As one portion of the program is improved, begin on 
on until the entire program has been improved to your 



usually minimal 
f time is spent 
ng where and how 
, once a program 
o form a plan or 
t of a series of 
f the program, 
the next, and so 
satisfaction. 



NOTE 

Do not attempt program optimization 
until the program has been debugged and 
runs correctly! 



13.1.1 Where to Begin 

Begin by gathering together the following material and information: 

1. An understanding of the goal (lower elapsed or CPU time) 

2. Copies of the source program and supporting software 

3. Enough data to make this program run long enough to measure, 
and short enough to endure: 10 to 15 minutes is usually 
sufficient. 

4. Files for output verification 

5. Access to the measurement tools (see Section 13.1.2) 

6. A notebook to record all observations, measurements, and 
results (see Section 13.1.5). 



13.1.2 What Tools are Available 

There are some tools that are part of the system software; you may 
have others at your installation; and some are available through 
DECUS and other agencies. This chapter discusses those that are part 
of the system software and are commonly used and understood. These 
tools are: 



COBDDT - For users of TOPS-10 and TOPS-20 
7.3 and 13.2 



see Sections 



SET WATCH - For users of TOPS-10 only - see 
Operating System Commands Manual 



the TOPS-10 
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13.1.3 What Method or Procedure to Use 

Once you have gathered all of the information and materials required, 
and are familiar with the various tools at your disposal, it is time 
to decide upon a course of action. The following procedure is 
provided as a guide. You can expand or shorten it as benefits your 
application or installation. 

1. Generate a version of the program and its data that will use 
10 to 15 minutes elapsed time. Remove anything from the 
program (terminal interaction, logical names, etc.) that make 
it difficult to run. 

2. Schedule your machine time to coincide with periods when the 
system is lightly loaded. This will enable you to make 
better use of the elapsed time statistics. 

3. Run the unaltered (original) program and determine the 
following statistics: 

a. Amount of CPU time used 

b. Elapsed time 

c. Amount of idle time on the system 

d. Amount of disk I/O, swapping, etc. 

e. Use SET WATCH to observe the program during its 
execution. SET WATCH will aid you in determining CPU 
time, peripheral usage, etc. 

Some of these statistics are not too meaningful on a system 
with even a moderate work load. Only the person conducting 
the test can determine to what extent the system work load 
may bias the measurement. However, even if the system is 
loaded, CPU time is normally a good indication of how the 
program performs. If the program runs with idle time, 
determine the reason for it (disk wait, tape wait, etc.). 
Often, additional buffering can lower the elapsed time. (See 
Section 13.1.4, Evaluating Performance.) 

4. Run a COBDDT histogram to determine its runtime statistics. 
The histogram will aid you in spotting potential problem 
areas in the program. 

5. If other tools are available, use them. 

6. Save the output from this first run for verification. 

7. Analyze the results and make any changes you believe will 
improve the program. 

8. Recompile, link, and execute the program using the tools and 
techniques mentioned above. 

9. Compare the statistics from this run with those of the 
previous or original run. 

10. Write down all observations, facts, and hunches. (See 
Section 13. i. 5, Documentation.) 
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11. Repeat steps 7 through 10 until you are satisfied with the 
results. 

The last step, repeat until satisfied, is very important. It is very 
easy to get carried away with program optimization. Start with a 
premise, for example, "I will be satisfied with a 30% improvement". 
When you reach this level of performance, stop. 



13.1.4 Evaluating Performance 

Generally the best criteria for evaluating performance is the one that 
led you to be suspicious of the program in the first place. Most 
generally, CPU time is used. It is easy to measure and easy to 
reproduce. You simply observe the CPU time in the original program, 
make changes as appropriate, rerun the program and observe it again. 
If the CPU time decreases, the changes were effective. 

NOTE 

Because CPU time can vary with the load 
on the system, only changes in excess of 
5% can be considered relevant. 

Another, more effective, way to determine performance is to measure 
the amount of work done per second of CPU time. By counting the 
number of records processed per second or minute, you have a good way 
to document a program's performance. Thus, if a program can normally 
process 100 records per CPU minute, and the volume increases by 1000 
records per run, the effect is easily predictable. 



13.1.5 Documentation 

It is a good practice to document everything you have done during 
program optimization. You will want to improve other programs, and 
the notes you take for the first attempt will aid you in saving time 
and effort on each succeeding attempt. The documentation kept should 
be simple and should include the following information: 

1. The name of the program, the time and date of the run, and 
the name of the programmer 

2. The amount of data used by the test program, for example, 
1000 records for a 10-minute run 

3. The time (CPU and elapsed) used by the original program 

4. The level of performance desired 

5. The optimization techniques utilized 

6. The results obtained, both positive and negative 

7. COBDDT histogram 

8. Any observations about system performance 
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9. Any other statistics collected, feelings, hunches, and 
perceptions 



other 



The documentation need not and should not be elegant. It should, 
however, be permanent. You might even tape portions of the console 
log into your notebook as a quick way of recording timings. 



13.2 LISTING THE TOOLS 

This section discusses the tools most commonly used by COBOL 
programmers for program optimization: COBDDT and SET WATCH. You are 
advised to read Section 7.3, COBDDT, before reading this section. The 
write-up on SET WATCH in the TOPS-10 Operating System Commands manual 
is also recommended for users of TOPS-10.. This section will not 
attempt to redo anything that has already been done. It attempts only 
to present information relevant to program optimization. 



13.2.1 COBDDT 

This section discusses COBDDT as used for evaluating program 
performance. Therefore, only the histogram feature is described. The 
COBDDT histogram provides you with the following information for each 
procedure that was executed in your program (see Figure 13-1, Sample 
COBDDT Histogram) : 

• Procedure name 

• The number of times the procedure was entered (ENTRIES) 

• The CPU time the procedure used (CPU) 

• The elapsed time the procedure used (ELAPSED) 



COBDDT HISTOGRAM FOR XDDT04 
XDDT4B.HIS 

PROCEDURE 

1ST 

P12 

PP3 

PP4 

PP5 
2ND 

2P0 

2P1 

2P3 

2P10 
3RD 

3P0 

XDDT4B.HIS 





REPORT: 


: 1 


ENTRIES 


CPU 


ELAPSED 


1 


0.336 


1.649 


5 


0.251 


1.239 


1 • 


0.028 


0.333 


1 


0.005 


0.005 


2 


0.045 


0.065 


3 


0.123 


0.398 


3 


0.013 


0.029 


7 


0.032 


0.065 


7 


0.030 


0.152 


7 


0.030 


0.047 


10 


0.115 


0.380 


10 


0.050 


0.108 



OVERHEAD: ELAPSED: 0.002 CPU: 

Figure 13-1 Sample COBDDT Histogram 



0.002 
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13.2.1.1 The ENTRIES Column - The information listed in the ENTRIES 
column of the histogram helps you to set your priorities for program 
improvement. Very high counts relative to others establishes the 
paragraph as one which needs further investigation. For example: 

1. Why is it entered so often? 

2. Is anything done there that could be done more effectively 
elsewhere? 

3. Can it be rewritten to do less? (See Section 13.5, Efficient 
Coding Conventions.) 

Often, the numbers will guide you into understanding how to order your 
decision lists. For example: 

Suppose P-l was entered 1000 times, P-2 was entered 300 times, 
and these paragraphs are chosen via a decision list that looks 
like this: 

S-l. IF A = " " GO TO P-2. 

S-2. IF A * "OO" GO TO P-l. 

It is apparent, then, that the order of S-l and S-2 should be 
reversed because A is usually 00. 

Also, based on the number of records processed, unexpected counts in 
certain paragraphs should be accounted for. 

Do not be afraid to add new paragraph names to the program. Not only 
does this technique allow you to break large paragraphs up into 
smaller ones, it also enables you to better understand exactly where 
the program spends its time. 



13.2.1.2 The CPU Column - The histogram's CPU column lists the amount 
of CPU time each paragraph used up. Generally, if you can cut the CPU 
time, the elapsed time will also drop and the application will perform 
more efficiently. By analyzing this column, you can easily identify 
the big spenders - those procedures that eat up most of the CPU time. 
One approach is to rank the paragraphs in terms of CPU time and to 
look for paragraphs that spend more time per entry than others. Then, 
proceeding in rank order, determine what each paragraph is doing, if 
it has to do it, and if a better coding technique is in order. 
Usually only a few paragraphs need be examined. 

NOTES 

1. CPU time for a paragraph also 
includes time spent in paragraphs 
performed or routines called. 
Therefore, the sum of the CPU time 
is greater than the total time 
actually spent within this 
paragraph. (See Section 13.2.1,4.) 

2. CPU time also' includes time spent in 
the object-time system and the 
monitor . 
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If after examining the list of the most time-consuming paragraphs, you 
determine that all can be explained, it is unlikely that changing any 
particular thing will improve performance. Either the program cannot 
be improved any further, or other techniques are needed. 



13.2.1.3 ELAPSED Column - In a lightly loaded system, the elapsed 
time can be a guide to the effective blocking of records. Some 
experiences with programs that seemed I/Q-bound indicated that they 
were spending a great deal of time in the paragraphs that dealt with 
relative or ISAM reads and updates. Inspection of the blocking 
revealed that while the files were blocked to conserve disk space, 
large amounts of data was being transferred (1 block) when the desired 
object was to update 1 record. Therefore, if a disproportionate 
amount of time is spent in some paragraphs, there could be a problem 
in processing. These paragraphs should definitely be investigated. 



13.2.1.4 OVERHEAD - This entry in the histogram, (see Figure 13-1) 
represents the time spent for PERFORM or CALL overhead. Look at this 
entry to evaluate the cost of PERFORM loop control mechanisms. If 
this figure is high, then some very short paragraph is being performed 
a large number of times. If this is the case, a more efficient method 
of loop control is probably in order. 



13.3 USING THE CORRECT DATA TYPE 

Understanding the various data types available is extremely important 
because there are so many of them. COBOL-74 offers you three 
different DISPLAY types and several COMPUTATIONALS. Each data type 
will offer some advantages and some disadvantages. It is necessary to 
understand these in order to maximize the efficiency of a particular 
application. 



13.3.1 DISPLAY Data Types 

There are 3 display data types used within COBOL. 

EBCDIC 

ASCII 

SIXBIT 

EBCDIC and ASCII are character codes which occupy 8 and 7 bits per 

character respectively. The representations for each character are 

defined by industry standards. SIXBIT is a; 6-bit BCD code which is 
defined by DIGITAL. 



13.3.2 EBCDIC 

The 8-bit EBCDIC code allows 256 different characters. It is 
compatible with IBM and thus is a natural where data interchange with 
360s and 370s is necessary. EBCDIC files may contain a mixture of 
EBCDIC and COMPUTATIONAL-3 data. EBCDIC is packed into the computer's 
memory, 4 characters per word. 
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EBCDIC processing is going to be somewhat slower than either ASCII or 
SIXBIT because each character takes more space. As an example, a 
120-character record would occupy: 

1. 30 words in EBCDIC 

2. 24 words in ASCII 

3. 20 words in SIXBIT 

Since movement of data is roughly linear with volume (it takes twice 
as long to move twice as much) , it can be seen that SIXBIT and ASCII 
are 33% and 20% more efficient than EBCDIC, respectively. 

However, there is an anomaly caused by having full words of data. 
This is generally moved at word speed which is much faster than byte 
speed. It is often worth while to fill a data item with extra 
characters to make it a multiple of a full word. Also, moves that can 
be done 2 characters at a time one faster than those moves that can be 
done 1 character at a time. 

The amount of file storage is also proportional to the byte size. For 
example, five ASCII records or 6 SIXBIT records can be stored in the 
same space taken by only 4 EBCDIC records. 

Thus the usage of EBCDIC should be restricted to those cases where: 

1. The ASCII and SIXBIT character set is too small (128 and 64 
characters, respectively, compared with 256 for EBCDIC). 

2. The transmittal of data to and from EBCDIC systems is a major 
part of the application. 

3. The application depends on the collating sequence (numerics 
after alphabetics) . 

4. The existance of many redefined records with mixtures of 
EBCDIC and COMP-3 make reprogramming unthinkable. 

In summary, it suffices to say that EBCDIC is a useful data type 
available to the COBOL user. For whatever its benefit, you must 
realize that it is slower and that a 33% increase on throughput could 
be realized by going to SIXBIT. 



13.3.3 ASCII 

Seven-bit ASCII is the coding sequence utilized by the unit record 
peripherals and terminals. Any other data type (EBCDIC or SIXBIT) has 
to be converted to ASCII if it is to be sent to one of these devices. 

In memory, the usage of ASCII makes the movement of data proceed 
faster than EBCDIC but slower than SIXBIT because of the number of 
characters per word. On the disk, all ASCII records are variable 
length as defined by industry standards, the end of an ASCII record is 
defined by the existance of a vertical form (normally a line feed) 
character (or several such characters) . Thus, when reading ASCII 
files, it is necessary to read them a character at a time in order to 
find the end-of-record character. This implies that ASCII records can 
be variable length and efficiently stored on the disk. It also 
implies that moving such records to or from memory is more costly than 
the other data types that can be moved by the block transfer 
instruction. 
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ASCII is the standard data type for text files. Files created by 
editors which contain arbitrary length records can be stored 
economically and processed easily using the ASCII data type. Cards 
from a reader can be "trailing blank suppressed" so that they can be 
stored economically and are easily manipulated using ASCII. In 
addition, blank lines are ignored or skipped over, unless they contain 
space characters. However, unless the full character set capabilities 
of ASCII (128 with lowercase plus line control) are necessary or the 
data is coming from or going to an ASCII peripheral, conversion to 
SIXBIT files is probably preferable. 



13.3.4 SIXBIT 

By far the most efficient DISPLAY code is SIXBIT. Six characters can 
be packed per word. Each record on disk or tape is preceded by a word 
with a character count allowing for block transfers of data. And the 
transmission time for moving the data around memory is less than any 
other data type. 

The only problem with SIXBIT is the number of characters possible 
within the 6-bit code. Basically, 64 characters allows for uppercase, 
numerics, and punctuation. It does not allow for lowercase, device 
control characters, or special graphics. 

Most installations put the bulk of their files into SIXBIT due to the 
storage economy and the processing efficiency. It is highly 
recommended whenever possible. 



13.3.5 COMPUTATIONAL 

There are several types of computational data types available to the 
COBOL programmer including: 

1. C0MPUTATI0NAL-3, the four bit relative of EBCDIC 

2. COMPUTATIONAL, internal binary (35 bits plus sign) 

3. Double-word COMPUTATIONAL, automatically invoked when the 
number of digits desired is greater than 10 (70 bits plus 
sign) 

4. C0MPUTATI0NAL-1, floating point (the hardware supports double 
precision floating point, but COBOL does not, except 
internally for the COMPUTE verb.) 

Aside from the usage of COMP-3 as an adjunct to EBCDIC, the most 
useful data type is COMPUTATIONAL. This is normally used for indexes, 
counters, and subscripts. If other data types are used for these 
purposes, there is continual conversion taking place since all 
arithmetic is done in binary. 

You can read arbitrary files by defining them as BINARY mode and then 
use the data as desired. 



13-10 October 1985 



IMPROVING PERFORMANCE OF COBOL-74 PROGRAMS 



13.4 DATA EFFICIENCIES 

Programming standards should insist on using the correct data types 
for certain operations. Using COMPUTATIONAL for counters works better 
on almost any machine. 



13.4.1 Counter, Indexes, Subscripts 

In DIGITAL COBOL indexes and subscripts are identical (this is not the 
case with some systems) . They are, in fact, the same as 
COMPUTATIONAL. A data item that is used as a counter or subscript 
should be declared: 

77 THE-NAME PICTURE S9(10) COMPUTATIONAL. 

COMPUTATIONAL items are always word-aligned no matter at what level 
they are defined and thus are equally efficient. However, there are 
some things that must be observed: 

1. If the number of digits is greater than 10, it becomes 
double-word computational, and all arithmetic is done with 
double word instructions. However, it is still faster and 
more efficient than DISPLAY. 

2. It is important that the variable be signed. If it is not, 
much less efficient code is generated to insure that it is 
never negative. 



13.4.2 File Storage 

SIXBIT files are the best for file storage and data manipulation 
efficiencies. Not only do they require less space than ASCII or 
EBCDIC, but they are efficient to move about. Each SIXBIT record is 
preceded by a length descriptor that provides the information 
necessary to do block transfers of data in memory rather than 
character by character. Also, since SIXBIT records are always word 
aligned, they can be transferred with block transfer instructions. 

ASCII is good for variable length text (for example those created by 
TECO or TV) and for line control. It suffers from the necessity of 
processing each character to determine the end of the record. 

EBCDIC is necessary if more than 128 characters are needed and if data 
transfer to systems using EBCDIC is necessary. It is also necessary 
to read files character by character since EBCDIC records (fixed 
length) need not necessarily be word aligned. It can be somewhat more 
efficiently processed than ASCII, however, since a specified number of 
characters is always transferred rather than an arbitrary number. 



13.4.3 Blocking Data 

Processing data from disk is more efficient if it is not blocked. 
This allows the system to pack information as tightly as possible on 
the disk with no slack bytes between blocks. Blocks always start on 
one of the disk's 128-word sector boundaries. Thus blocking 
inefficiently could waste considerable space. 
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If you block disk records, remember to count the length descriptor 
words on SIXBIT, variable length EBCDIC records, and carriage-return, 
line-feed in ASCII. 



13.4.4 DATA DIVISION Space Restrictions 

Each DATA DIVISION item in the program being created generates an 
entry within an internal table (DATAB) . The range of the table is 
from 00000 to 77777, or 32768 words. Each entry is seven words long. 
Therefore, the maximum number of items in the DATA DIVISION is 32768 
divided by 7, or 4680 items (one word is used as overhead). This 
includes all data items described in the FILE SECTION and the 
WORKING-STORAGE SECTION. Conditional items (level 88) are not 
included and are therefore, excluded. For example, the following data 
description generates four entries in DATAB: 

01 ITEM-A. 

02 ITEM-B. 

04 ITEM-C PIC X. 
04 ITEM-D PIC X. 

However, the following data description generates only one entry in 
DATAB : 

01 ITEM-A PIC XX. 

Both examples above encompass two bytes of data in the data area of 
the program. The first example requires four times as much space in 
DATAB as the second example. Therefore, the limits of the DATA 
DIVISION are governed by how you describe the data items, not by how 
much data you need to store. 

Subscripted and indexed data items generate nine word entries in 

DATAB. An INDEXED BY clause in an indexed data item generates an 

additional seven word DATAB entry. Each edited data item generates a 
13 word entry in DATAB. 

An item description that contains SEARCH keys generates a DATAB entry 
of 14 words or more. For example, ITEM-A below generates a 15 word 
entry: 

01 ITEM-A OCCURS 10 TIMES 

ASCENDING KEY IS ITEM-B, ITEM-C. 
02 ITEM-B PIC X. 
02 ITEM-C PIC X. 

If your program exceeds the maximum number of data items in the DATA 
DIVISION, you must either: 

1. Rework the data item entries within the FILE or 
WORKING-STORAGE SECTION, or 

2. Remove some or all the arrays and set them up within 
subprograms to be CALLed or ENTERed by your main program. 
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13.5 EFFICIENT CODING CONVENTIONS 

This section contains a listing of some practical coding practices 
that have proven efficient. You can demonstrate that these techniques 
are more efficient with short programs that execute these sequences a 
large number of times. You can also look at the MACRO expansion of 
the program to see why things are different. 



13.5.1 Alignment 

When the addresses of the data items are known at compile time the 
compiler can generate efficient in-line code. This code can include 
the usage of the block transfer instruction where the two data items 
are aligned and of the same type. When they are not aligned, or when 
conversion is necessary, an object-time system routine may be called. 

The simplest way to insure that data is aligned is to define it at 
either the 77 level or at the 01 level. It is possible by counting 
characters or by using the COBOL data map to also determine alignment. 

Alignment simply means that the first byte of each item begins in the 
same position in the beginning word, that the items are the same 
length, and that they are of the same type. 



13.5.2 Usage of Subscripts 

Avoid the use of subscripts whenever possible. Subscripts are 
recomputed every time they are used, they are never remembered. If 
you use a subscripted item more than once, it is more efficient to 
move it into a simple variable and then use that. For example: 

01 THE-TABLE OCCURS 200 TIMES 
02 THE-COUNT PIC S9(10) COMP. 
02 THE-DATA PIC XXXXXXXX. 

77 THE-TABLE-COUNT PIC S9(10) COMP. 

The sequence 

MOVE THE-COUNT (IDX) TO THE-TABLE COUNT. 
IF THE-TABLE-COUNT = 3 GO TO P-l. 
IF THE-TABLE-COUNT = 4 GO TO P-2. 

is more efficient if it is likely that the count is not 3, than the 
following : 

IF THE-COUNT (IDX) = 3 GO TO P-l. 
IF THE-COUNT (IDX) = 4 GO TO P-l. 
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It is usually advantageous to move the whole entry from a table into 
some 01-level structure which contains similar items rather than to 
process the data from the table via subscripts. For example: 

01 THE-TABLE OCCURS 20 TIMES. 
02 THE-CNT PIC S9(10) COMP. 
02 THE-DATA PIC XXXXXXX. 

01 THE-TABLE-ENTRY. 

02 THE-TABLE-CNT PIC S9 (10) COMP. 
02 THE-TABLE-DATA XXXXXXX. 

MOVE THE-TABLE (IDX) TO THE-TABLE-ENTRY. 

IF THE-TABLE-CNT » 5 DISPLAY THE-TABLE-DATA. 

In this example, only one subscript had to be calculated, and one 
unsubscripted move performed. Savings in often-referenced paragraphs 
(in a loop) can be quite large. Simply remember that there is 
additional overhead here and it pays to eliminate it. 



13.5.3 Incrementing Counters 

COBOL-74 provides three ways of incrementing counters. Each performs 
the same function in different ways. For example: 

77 COUNTER PIC S9(10) COMP. 

This counter can be modified in the following ways: 

SET COUNTER UP BY 1. 

ADD 1 TO COUNTER. 

COMPUTE COUNTER = COUNTER +1. 

The first two examples are equivalent, the third is much slower and, 
therefore, not recommended. 

Keep in mind that computational counters should always be signed even 
when they logically will never become negative. If they are not 
signed, additional instructions will be generated to make sure they do 
not become negative. 



13.5.4 The PERFORM Statement 

The PERFORM statement provides an essential element of structured 
programming. It provides implicit loop control and it makes listings 
easy to follow. 

However, it suffers from the fact that it requires some information to 
be posted upon entry to a routine and cleared upon exit from that 
routine. COBOL-74 is fussy about the nesting of PERFORMS so that 
there is a concept of level. Each time a PERFORM statement is 
encountered, the level counter is incremented by 1. Each time a 
performed routine exits, it is decremented by 1. The level counter 
must have the same value at exit time as it has at entry or else there 
is an error in the program. 

Here are a few known ways to improve the efficiency of programs which 
use PERFORMS. 
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Example 13-1 



SET IDX TO PERFORM PARI 100 TIMES 



PARI. SET IDX UP BY 1. 

IF TABLE (IDX) = ABLE MOVE 6 TO FOO. 



is more efficient than: 

PERFORM PAR2 VARYING IDX FROM 2 BY 1 
UNTIL IDX > 100. 

When a loop or PERFORM is done repeatedly, the loop should do 
everything possible on each iteration. This minimizes the expense of 
the loop control mechanism. Thus: 

PERFORM F-l 1000 TIMES. 
PERFORM F-2 1000 TIMES. 

should be rewritten so that both functions of F-l and F-2 can be 
accomplished by a single PERFORM. This is most meaningful when the 
word being accomplished by each paragraph is small. 



13.5.5 Use of the INSPECT Statement 

Use of the INSPECT statement is preferable to doing the same process 

in other ways. You should understand all the options (including 

REPLACING) so that the power of the statement can be applied. For 

information on the INSPECT statement see Part 2, COBOL Language 
Reference Material. 



13.5.6 Data Movement 

This is just an observation on data movement. On a character-oriented 
machine, there is generally a machine instruction with a name 
something like MVC (for move characters) . On such a system, there is 
a fixed cost for picking up the instruction, plus a variable cost 
which is a function of the number of characters. TOPS-10 and TOPS-20 
act similarly, but the fixed cost is higher. 



Especially if data conversion is 
more efficient to change all 
statement than to move the data 
recognizes that data conversion i 
are aligned, then efficient in-li 
the fixed cost to move any numb 
and TOPS-20 than on some systems, 
loops where small numbers of 
transferred. If it is impossible 
sure that the data is aligned. 



implied (ASCII to SIXBIT) , then it is 

fields in a record with one move 

field by field. If the compiler 

s not necessary, and that the records 

ne code can be generated. Because 

er of characters is higher on TOPS-10 

programmers should try to avoid 

characters are continually being 

to avoid such situations, then make 
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13.5.7 Ordering Statements 

All programs should be written so that they avoid executing large 
numbers of useless instructions. Thus classic decision lists like: 

IF AB = " " GO TO F00. 
IF CD = "1" GO TO FOO-1 
IF EF = "2" GO TO FOO-2. 



IF GH = "3" GO TO FOO-3 

should be ordered by expected frequency. The following type of coding 
should be avoided if it is in a highly used spot: 

IF AB = " " MOVE Z TO DDD. 
IF AB = "1" MOVE Z TO FFF. 
IF AB = "2" MOVE Z TO GGG. 

In this type of code all statements get executed each time, even 
though only one actually does anything useful. 



13.5.8 Asking the Correct Question 

Some small efficiencies can be gained by asking the correct questions. 
Thus the following example is inefficient. 

SET X TO 1. 
LOOP. MOVE B(X) TO C(X). 
SET X UP BY 1. 
IF X > 1000 GO TO ZIP. 
GO TO LOOP. 

While this is not bad coding, the program will only go to ZIP one time 
in a 1000. Some better code is developed if the statement were 
rewritten : 

IF X < 1001 GO TO LOOP ELSE GO TO ZIP. 

The first option is the one that happens the most often. 
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APPENDIX A 
DIFFERENCES BETWEEN COBOL-68 AND COBOL-74 



The terms COBOL-68 and COBOL-74, which are used in the following text, 

refer to DIGITAL'S implementation of ANS-68 and ANS-74 COBOL, 

respectively. Any references to ANS COBOL will be made clear by the 
use of the initials "ANS". 

COBOL-74 differs from COBOL-68 in the following ways: 

1. A stroke (slash, "/", virgule) in the continuation area 

(seventh character position) of a line causes page ejection 
of the compilation listing. (The line is treated as a 
comment.) <1NUC (1) New feature to COBOL-74> 

2. Two contiguous quotation marks may be used to represent a 
single quotation mark character in a nonnumeric literal. 
<1NUC (1) New feature. > 

3. REMARKS paragraph is deleted. <1NUC (2) Function was 
replaced by the comment line.> 

4. Continuation of Identification Division comment-entries must 
not have a hyphen in the continuation indicator area. <1NUC 
(2)> 

5. PROGRAM COLLATING SEQUENCE clause specifies that the 
collating sequence associated with alphabet-name is used in 
nonnumeric comparisons. <1NUC (1) New feature. > 

6. SPECIAL-NAMES paragraph: "L", "/", and "=" may not be 
specified in the CURRENCY SIGN clause. <2NUC (2) This 
restriction did not exist in X3. 23-1968. > 

7. Alphabet-name clause relates a user-defined name to a 
specified collating sequence or character code set (ANSI, 
native, or implementor-specif ied) . <1NUC (1) New feature. > 

8. Alphabet-name clause: the literal phrase specifies a 
user-defined collating sequence. <2NUC (1) New feature. > 

9. All items which are immediately subordinate to a group item 
must have the same level-number. <1NUC (2)> 

10. Object of a REDEFINES clause can be subordinate to an item 
described with an OCCURS clause, but must not be referred to 
in the REDEFINES clause with a subscript or an index. <1NUC 
(1) New feature. > 

11. An asterisk used as a zero suppression symbol in a PICTURE 
clause and the BLANK WHEN ZERO clause may not appear in the 
same entry. <1NUC (2)> 
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12. Alphabetic PICTURE character-string may contain the character 
B. <1NUC (1) New feature. > 

13. Stroke (/) permitted as an editing character. <1NUC (1) New 
feature. > 

14. SIGN clause allows the specification of the sign position. 
<1NUC (1) New feature. > 

15. In the Procedure Division a section may contain zero or more 
paragraphs and a paragraph may contain zero or more 
sentences. <1NUC (1) New feature. > 

16. In relation and sign conditions, arithmetic expressions must 
contain at least one reference to a variable. <1NUC (2)> 

17. Comparison of nonnumeric operands: If one of the operands is 
described as numeric, it is treated as though it were moved 
to an alphanumeric item of the same size and the contents of 
this alphanumeric item were then compared to the nonnumeric 
operand. <1NUC (3)> 

18. Abbreviated combined relation condition: When any portion is 
enclosed in parentheses, all subjects and operators required 
for the expansion of that portion must be included within the 
same set of parentheses. <2NUC (2) No such restriction 
appeared in X3. 23-1968. > 

19. Abbreviated combined relation condition: If NOT is 
immediately followed by a relational operator, it is 
interpreted as part of the relational operator. <2NUC (2) In 
X3. 23-1968, NOT was a logical operator in such cases. > 

20. Class condition: The numeric test cannot be used with a 
group item composed of elementary items described as signed. 
<1NUC (3)> 

21. In an arithmetic operation, the composite of operands must 
not contain more than 18 decimal digits. However, if your 
COBOL-74 compiler makes use of the Business Instruction Set, 
the maximum is 36 digits. <1NUC (2) X3. 23-1968 specified 
limits only for ADD and SUBTRACT. > 

22. ACCEPT identifier FROM DATE/DAY/TIME allows the programmer to 
access the date, day, and time. <2NUC (1) New feature. > 

23. COMPUTE statement: the identifier series. <2NUC (1) New 
feature. > 

24. DISPLAY statement: If the operand is a numeric literal, it 
must be an unsigned integer. <1NUC (2)> 

25. DIVIDE statement: the INTO identifier series and the GIVING 
identifier series. <1NUC (2)> 

26. DIVIDE statement: the remainder item can be numeric-edited. 
<2NUC (1) New feature. > 

27. GO TO statement: the word TO is not required. <1NUC (1) 
X3. 23-1968 requires the word TO.> 

28. EXAMINE statement and the special register TALLY were 
deleted. <1NUC (2) Function was replaced by the INSPECT 
statement. > 
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29. INSPECT statement provides ability to count or replace 
occurrences of single characters or groups of characters. 
<1NUC (1) New feature. > 

30. MOVE statement: A scaled integer item (i.e., the rightmost 
character of the PICTURE character-string is a P) may be 
moved to an alphanumeric or alphanumer ic-edited item. <1NUC 
(1) New feature. > 

31. MULTIPLY statement: the BY identifier series and the GIVING 
identifier series. <2NUC (1) New feature. > 

32. PERFORM statement: There is no logical difference to the 
user between fixed and fixed overlayable segments. <1NUC (1) 
X3. 23-1968 did not permit fixed overlayable segments to be 
treated the same as a fixed segment. > 

33. PERFORM statement: Control is passed only once for each 
execution of a Format 2 PERFORM statement (i.e., an 
independent segment referred to by such a PERFORM is made 
available in its initial state only once for each execution 
of that PERFORM statement). <;LNUC,1SEG (3)> 

34. STOP statement: If the operand is numeric literal, it must 
be an unsigned integer. <1NUC (2)> 

35. A data description entry with an OCCURS DEPENDING clause may 
be followed within that record only by entries subordinate to 
it. That is, only the last part of the record may have a 
variable number of occurrences. <2TBL (2) This rule did not 
appear in X3. 23-1968. > 

36. When a group item, having subordinate to it an entry that 
specifies Format 2 of the OCCURS clause, is referenced, only 
that part of the table area that is defined by the value of 
the operand of the DEPENDING phrase will be used in the 
operation. That is, the actual size of a variable length 
item is used, not the maximum size. <2TBL (2)> 

37. The subject of the condition in the WHEN phrase of the SEARCH 
ALL statement must be a data item named in the KEY phrase of 
the table? the object of this condition may not be a data 
item named in the KEY phrase. <2TBL (2) X3, 23-1968 specified 
that either the subject or object could be a data item named 
in the KEY phrase. > 

38. SORT statement: COLLATING SEQUENCE phrase provides the 
ability to override the program collating sequence. <2SRT 
(1) New feature. > 

39. No more than one file-name from a multiple file reel can 
appear in a SORT statement. <2SRT (2)> 

40. Segment-numbers permitted in DECLARATIVES. <1SEG (1)> 

41. ACCESS MODE IS DYNAMIC clause: provides ability to access a 
file sequentially or randomly in the same program. 
<2REL,2INX (1) New feature. > 

42. ACTUAL KEY clause deleted. <(2)> 

43. RELATIVE KEY clause added for relative organization. <1REL 
(1) New featue. > 
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44. FILE-LIMITS clause deleted. <(2)> 

45. PROCESSING MODE clause deleted. <(2)> 

46. ORGANIZATION IS RELATIVE clause. <1REL (2) New feature. > 

47. ORGANIZATION IS SEQUENTIAL clause. <1SEQ (2) New feature. > 

48. ORGANIZATION IS INDEXED clause. <1INX (2) New feature. > 

49. MULTIPLE REEL/UNIT clause deleted. <(2)> 

50. RESERVE. . .ALTERNATE AREAS deleted. <(2)> 

51. RESERVE integer AREAS to allow the user to specify the exact 
number of areas to be used. <1SEQ, 1REL, 1INX (1) New 
feature . > 

52. The data-name option of the LABEL RECORDS clause was deleted. 
<1SEQ,1REL,1INX (2) X3. 23-1968 provided for user-defined 
label records. > 

53. LINAGE clause permits programmer definition of logical page 
size. <2SEQ (1) New feature. > 

54. CLOSE... FOR REMOVAL statement. <2SEQ (1) New feature. > 

55. DELETE statement. <1REL (1) New feature. > 

56. OPEN REVERSED positions the file at its end. <2SEQ (2)> 

57. OPEN EXTEND statement adds records to an existing file. 
<2SEQ (1) New feature. > 

58. The OPEN REVERSED statement applies to all devices that claim 
support for this function. <2SEQ (1) X3. 23-1968 restricted 
the application of this phrase. > 

59. READ statement: AT END phrase required only if no applicable 
USE AFTER ERROR/EXCEPTION procedure specified. 
<1SEQ,1REL,1INX (1) New feature. > 

60. READ statement: INVALID KEY phrase required only if no 
applicable USE AFTER ERROR/EXCEPTION procedure specified. 
<1REL,1INX (1) New feature. > 

61. READ... NEXT statement: used to retrieve the next logical 
record from a file when the access mode is dynamic. <2REL, 
2INX (1) New feature. > 

62. REWRITE statement. <1SEQ,1REL (1) New feature. > 

63. SEEK statement was deleted. <(2)> 

64. START statement provides for logical positioning within a 
relative or indexed file for sequential retrieval of records. 
<2REL, 2INX (1) New feature. > 

65. USE statement: the label processing options were deleted. 
<1SEQ,1REL,1INX (2) X3. 23-1968 provided for the processing of 
user-defined labels. > 
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66. USE. . .ERROR/EXCEPTION statement. <1SEQ, 1REL, 1INX (1) New 
feature. > 

67. Recursive invocation of USE procedures prohibited. 
<1SEQ,1REL,1INX (2)> 

68. WRITE statement: INVALID KEY phrase required only if no 
applicable USE AFTER ERROR/EXCEPTION procedure specified. 
<1REL,1INX (1)> 

69. WRITE statement: BEFORE/AFTER PAGE phrase provides ability 
to skip to top of a page. <1SEQ (1)> 

70. WRITE statement: END-OF-PAGE phrase. <2SEQ (1) New 
feature. > 

71. CALL identifier statement. <1IPC (1) New feature. > 
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Note A. (RELATIVE files) 

The RANDOM file access method of COBOL-68 has been replaced by 
the RELATIVE file organization in COBOL-74. This means a number 
of syntactic changes, but in addition it means some important 
semantic changes as well. 

In the Environment Division, the syntactic changes include the 

substitution of an ORGANIZATION IS RELATIVE clause for the old 

ACCESS IS RANDOM clause, and the substitution of the ACCESS IS 

SEQUENTIAL / RANDOM / DYNAMIC for the old PROCESSING IS 
SEQUENTIAL clause. The FILE LIMITS clause goes away. The ACTUAL 

KEY clause is replaced by the RELATIVE KEY clause, although the 
meaning of the key value is identical to that in COBOL-68. 

The Data Division is unchanged. 

The Procedure Division verbs are changed considerably. OPEN, 
CLOSE and the USE ON ERROR procedures are unchanged. The WRITE 
statement is unchanged in syntax, but its meaning is restricted 
to writing a record into an "empty" position in the file. If the 
record position in the file into which the record is being 
written is already "occupied", the WRITE must not alter the 
existing contents of the record position, but must instead take 
the INVALID KEY path (or execute a USE procedure) . In order to 
change the contents of an "occupied" record position one either 
has to REWRITE it or DELETE and WRITE it. Attempting to DELETE 
or REWRITE a record position which is already "empty" causes the 
INVALID KEY path to be taken. In other words, each record 
position of the relative file must have an "occupied" state, 
which can be recognized by the object time I/O routines. There 
is also a START verb which can be used to position at or beyond a 
given record position. Then sequential READS or WRITES may be 
done. The sequential READ is done with a READ NEXT statement, 
whereas the random READ is just a READ statement. The sequential 
READ uses the AT END phrase (which is optional) and the random 
READ uses the INVALID KEY phrase (also optional). Thus, there 
are not only many syntactic changes in existing verbs, but new 
verbs, and a markedly different approach to the file's contents. 

Note B. (INDEXED files) 

The INDEXED I/O module of COBOL-74 is fairly similar to that of 
COBOL-68. There are syntactic differences in the Environment 
Division and in the Procedure Division. 

COBOL-68 had a SYMBOLIC KEY clause to designate the key used in 
READ, WRITE, REWRITE and DELETE statements. COBOL-74 does not 
have a SYMBOLIC KEY clause. The random READ statement has a "KEY 
IS identifier" phrase which supplies a key value. The WRITE 
statement uses key values from the record being written, and the 
DELETE and REWRITE statements must follow a successfully executed 
READ and use the "remembered" key from that operation. 

COBOL-74 includes a START statement in the Procedure Division 
which positions the record pointer in the file specified. Also, 
the READ NEXT statement is used to do sequential reading through 
the existing records of the file. 

Note C. (Segmentation and PERFORM rules) 

In COBOL-74, sections in the Procedure Division can have segment 
numbers (called "priority numbers" in COBOL-68) that range from 
00 to 99. Segments with numbers 50 and above are called 
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"independent" segments. Also, the programmer can specify a 
SEGMENT LIMIT IS clause with a value between 00 and 49. This 
divides the segments with. numbers below 50 into two groups. Thus 
all segments fall into one of three groups: 

1. Below the segment limit, called "fixed permanent", that is, 
always resident. 

2. From the segment limit to 49, called "fixed overlayable" , 
that is, each segment number defines an overlay and the code 
in such a segment is brought into memory only as needed. Any 
GO TOs which have been ALTERED will retain their most 
recently set values when they are brought into memory. 

3. From 50 up, called "independent", that is, each segment 
number defines an overlay and the code is brought into memory 
only as needed. Any GO TOs which have been altered will be 
reset each time the segment is brought into memory. 

The restrictions on the ALTER and PERFORM verbs have not really 
changed from ANS-68 COBOL to ANS-74 COBOL but they have become 
more explicit. COBOL-74 implements the restrictions on the ALTER 
statement correctly (by either standard) but implements the 
restrictions on PERFORM in a manner different from either 
standard. COBOL-74 uses the segment-limit value as the dividing 
line for the PERFORM restrictions, whereas the standards use the 
segment number 50 as the dividing line. When you do not specify 
a segment limit value the compiler supplies 50 as the default, 
making the restrictions the same for COBOL-74 and the standards. 
However, when you do supply the segment limit value, COBOL-74 
applies the rules in such a way as to make all overlayable 
segments behave the same. 

(In the Journal of Development, the ALTER statement has been 
abolished and segment numbers are restricted to 00 to 49, hence 
all these rules go away, but the JOD change occurred after the 
ANS-74 COBOL standard was frozen for publication.) 

Note D. (CALL and CANCEL rules) 

There are many differences between COBOL-74 's implementation of 
CALL and CANCEL and the ANS-74 COBOL standard. 

1. The syntax is different for both statements in that COBOL-74 
interprets a user-word as a program-name with or without 
quotes around it, whereas ANS-74 COBOL interprets a user-word 
as a data-name in which is stored the program-name. 

2. In ANS-74 COBOL there is an ON OVERFLOW ... clause for 
handling instances in which there is insufficient memory 
space available to load the called subprogram. This does not 
exist in COBOL-74. 

3. COBOL-74 allows alternate entry points to subprograms, not 
allowed in ANS-74 COBOL, and COBOL-74 uses the ENTER 
(MACRO/FORTRAN) statement to allow the user to call 
subprograms written in those languages. 

4. The semantics are very different. COBOL-74 uses LINK to 
construct a tree-structured overlay scheme from user-supplied 
commands to LINK. When a subprogram is CALLed , the branch of 
the tree up to that subprogram is loaded along with the 
subprogram. Likewise, when a subprogram is CANCELled, the 
entire tree beyond that subprogram is cancelled. ANS-74 
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COBOL recognizes no such tree structure, and allows loading 
and cancelling to occur strictly on a subprogram basis. In 
addition, LINK allows more than one subprogram to be linked 
into a single overlay, with the effect that a cancel of one 
of the subprograms in the overlay results in a cancel of all 
subprograms in that overlay. 

Note E. (COPY statement) 

The double equal sign (==) is a syntactic element new to ANS-74 
COBOL (but not new to users of COBOL-68 version 12) used to set 
off pseudo-text. This notation is used to delimit pieces of text 
which you wish to replace or insert with the COPY verb. It is 
not necessary to use the double equal sign if your text-string is 
a literal or a data-name, but if you wish to replace complex 
pieces of text the double equal sign will serve as a clear 
delimiter, and you may include the notation any time you wish 
without risk of confusing the compiler. 
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COBOL RESERVED WORDS 



In the listing below, words not preceded by symbols are reserved in 
both ANSI-74 Standard COBOL and in DECsystem-10 and DECSYSTEM-20 
COBOL. Words preceded by '*' are reserved in ANSI-74 Standard COBOL 
but not reserved in DECsystem-10 and DECSYSTEM-20 COBOL. Words 
preceded by '**' are reserved in DECsystem-10 and DECSYSTEM-20 COBOL 
but not reserved in ANSI-74 Standard COBOL. Reserved words may not be 
used as user-created names. 



A 




ACCEPT 


ACCESS 


ADD 


♦ADDRESS 


AFTER 


ALL 


ALPHABETIC 


ALSO 


ALTERNATE 


AND 


ARE 


AREA 


ASCENDING 


**ASCII 


AT 


AUTHOR 


B 




BEFORE 


BEGINNING 


BLANK 


BLOCK 


BY 


BYTE 


C 




**CALL 


**CANCEL 


CF 


CH 


CHARACTER 


CHARACTERS 


*CLOCK-UNITS 


CLOSE 


CODE 


CODE-SET 



ACTUAL 

ADVANCING 
♦♦ALLOWING 

ALTER 
**ANY 

AREAS 

ASSIGN 



**BINARY 
BOTTOM 



CD 
♦♦CHANNEL 
**CLASS 

COBOL 

COLLATING 
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COLUMN 

COMP 
**COMPILE 
♦♦COMPUTATIONAL-3 
♦♦CONSOLE 

CONTROLS 

CORRESPONDING 

CURRENT 



COMMA 
**COMP-l 

COMPUTATIONAL 

COMPUTE 

CONTAINS 

COPY 
**COUNT 



♦♦COMMUNICATION 

**COMP-3 

**COMPUTATIONAL-l 

CONFIGURATION 

CONTROL 

CORR 
♦♦CURRENCY 



D 

DATA 
♦♦DATE-COMPILED 

DE 
♦DEBUG-LINE 
♦DEBUG-SUB-2 

DECIMAL-POINT 
♦♦DECSYSTEM-20 
♦♦DELETE 
♦♦DENSITY 

DESCENDING 

DISABLE 
♦♦DISPLAY-7 

DIVISION 
♦♦DUPLICATE 



♦♦DATABASE-KEY 
DATE-WRITTEN 
♦DEBUG-CONTENTS 
♦DEBUG-NAME 
♦DEBUG-SUB-3 
DECLARATIVES 
♦♦DECSYSTEM10 
DELIMITED 
DEPENDING 
DESTINATION 
DISPLAY 
♦♦DISPLAY-9 
DOWN 
DUPLICATES 



♦♦DATE 
♦♦DBKEY 
♦DEBUG-ITEM 
♦DEBUG-SUB-1 

DEBUGGING 
♦♦DECSYSTEM-10 
♦♦DEFERRED 

DELIMITER 
♦♦DEPTH 
. DETAIL 
♦♦DISPLAY-6 

DIVIDE 
**DUP 

DYNAMIC 



♦♦EBCDIC 

EMI 

END 

ENTER 

EOP 
♦♦EQUALS 
♦♦EVEN 



EGI 
♦♦EMPTY 

END-OF-PAGE 
♦♦ENTRY 
♦♦EPI 

ERROR 

EVERY 



ELSE 

ENABLE 

ENDING 

ENVIRONMENT 

EQUAL 

ESI 

EXCEPTION 
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**EXCL 
EXTEND 



♦♦EXCLUSIVE 



EXIT 



FD 

FILE-STATUS 
**FIND 

FOR 
**FREE 



FILE 

FILLER 

FIRST 
**FORTRAN-IV 
**FREED 



FILE-CONTROL 
FINAL 
FOOTING 
** FORTRAN 
FROM 



GENERATE 


**GET 


GO 


**GOBACK 


GROUP 





GIVING 
GREATER 



HEADING 

I 
1-0 

IDENTIFICATION 
INDEX 
INITIAL 
INPUT-OUTPUT 
INSTALLATION 
** INVOKE 



HIGH-VALUE 

1-0 CONTROL 
IF 

INDEXED 
INITIATE 
**INSERT 
INTO 
IS 



HIGH-VALUES 

**ID 
IN 

INDICATE 
INPUT 
INSPECT 
INVALID 



'JOURNAL 

K 
KEY 

L 
LABEL 
LEFT 



JUST 

KEYS 

LAST 
LENGTH 



JUSTIFIED 



LEADING 
LESS 
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LIMIT 

LINAGE-COUNTER 
LINES 
LOW-VALUE 

M 
**MACRO 
MEMORY 
MODE 
MOVE 

N 
NATIVE 
NO 
NOT 


OBJECT-COMPUTER 
OF 
ON 
**OPT 

ORGANIZATION 
OVERFLOW 

P 
PAGE 
**PDP-10 
PH 

PLUS 
♦♦POSITIONING 
**PRIOR 

PROCEED 
♦♦PROGRAM 
♦♦PROTECTED 



LIMITS 
LINE 
♦♦LINKAGE 

LOW-VALUES 

♦♦MEMBER 

MERGE 
♦♦MODIFY 

MULTIPLE 

NEGATIVE 
♦♦NOMINAL 
NUMBER^ 

OCCURS 

OFF 
♦♦ONLY 

OPTIONAL 
♦♦OTHERS 
♦♦OWNER 

PAGE-COUNTER 

PERFORM 

PIC 

♦♦POINTER 
POSITIVE 

♦♦PRIVACY 
PROCEDURES 
PROGRAM-ID 



LINAGE 

LINE-COUNTER 

LOCK 



♦♦MEMBERS 
MESSAGE 
MODULES 
MULTIPLY 

NEXT 

♦♦NONE 
NUMERIC 

♦♦ODD 

OMITTED 
OPEN 
OR 
OUTPUT 



♦♦PARITY 
PF 

PICTURE 
POSITION 
PRINTING 
PROCEDURE 
PROCESSING 

♦♦PROT 
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Q 






QUEUE 


QUOTE 


QUOTES 


R 
RANDOM 


RD 


READ 


♦READ-REWRITE 


♦READ-WRITE 


RECEIVE 


RECORD 


♦♦RECORDING 


RECORDS 


REDEFINES 


REEL • 


REFERENCES 


RELATIVE 


RELEASE 


REMAINDER 


REMARKS 


REMOVAL 


♦♦REMOVE 


RENAMES 


REPLACING 


REPORT 


REPORTING 


REPORTS 


RERUN 


RESERVE 


RESET 


♦♦RETAIN 


**RETAINED 


♦♦RETR 


♦♦RETRIEVAL 


RETURN 


REVERSED 


REWIND 


REWRITE 


RF 


RH 


RIGHT 


ROUNDED 


RUN 


**RUN-UNIT 






S 
SAME 


♦♦SCHEMA 


SD 


SEARCH 


SECTION 


SECURITY 


SEGMENT 


SEGMENT-LIMIT 


SELECT 


♦♦SELECTIVE 


SEND 


SENTENCE 


SEPARATE 


♦♦SEQUENCE 


SEQUENTIAL 


SET 


♦♦SETS 


SIGN 


♦♦SIXBIT 


SIZE 


SORT 


SORT-MERGE 


SOURCE 


SOURCE-COMPUTER 


SPACE 


SPACES 


SPECIAL-NAMES 


STANDARD 


STANDARD-1 


♦♦STANDARD-ASCII 


START 


STATUS 


STOP 


♦♦STORE 


STRING 


SUB-QUEUE-1 


♦♦SUB-QUEUE-2 


♦♦SUB-QUEUE-3 


♦♦SUB-SCHEMA 
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SUBTRACT 


SUM 


♦♦SUPPRESS 


**SWITCH 


SYMBOLIC 


SYNC 


SYNCHRONIZED 






T 






TABLE 


TALLY 


TALLYING 


TAPE 


TERMINAL 


TERMINATE 


TEXT 


THAN 


THROUGH 


THRU 


TIME 


TIMES 


TO 


TOP 


♦♦TRACE 


TRAILING 


♦♦TRANSACTION 


TYPE 



♦♦UNAVAILABLE 


UNIT 


UNTIL 


UP 


♦♦UPDATES 


UPON 


♦♦USAGE-MODE 


USE 


USING 




V 




VALUE 


VALU 


♦♦VERB 


♦♦VIA 


W 




WHEN 


WITH 


WORDS 


WORK 


Z 




ZERO 


ZERO 



UNSTRING 
♦♦UPDATE 

USAGE 
♦♦USER-NUMBER 



VARYING 



♦♦WITHIN 
WRITE 

ZEROS 
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ASCII, SIXBIT, AND EBCDIC COLLATING SEQUENCES AND CONVERSIONS 



Table C-l shows the ASCII and SIXBIT collating sequence and the 
conversions from ASCII to EBCDIC,. SIXBIT to ASCII, and SIXBIT to 
EBCDIC. If the ASCII character does not convert to the same character 
in EBCDIC, the EBCDIC character is shown in parentheses next to the 
EBCDIC code. Note that the first and last 32 characters do not exist 
in SIXBIT. Also, the characters in the first column (NUL, SOH, STX, 
and so forth,) are control characters, which are nonprinting. 

Table C-l 
ASCII and SIXBIT Collating Sequence and Conversion to EBCDIC 





ASCII 


EBCDIC 


Character 


7-bit 


9-bit 


NUL 


000 


000 


SOH 


001 


001* 


STX 


002 


002* 


ETX 


003 


003* 


EOT 


004 


067 


ENQ 


005 


055* 


ACK 


006 


056* 


BEL 


007 


057* 


BS 


010 


026 


HT 


011 


005 


LF 


012 


045 


VT 


013 


013* 


FF 


014 


014* 


CR 


015 


025*(NL) 


SO 


016 


006* (LC) 


SI 


017 


066* (UC) 


DLE 


020 


044* (BYP) 


DC1 


021 


024* (RES) 


DC 2 


022 


064* (PN) 


DC 3 


023 


065* (RS) 


DC 4 


024 


004* (PF) 


NAK 


025 


075* 


SYN 


026 


027*(IL) 


ETB 


027 


046* (EOB) 


CAN 


030 


052* (CM) 


EM 


031 


031* 


SUB 


032 


032* (CC) 


ESC 


033 


047* (PRE) 


FS 


034 


023* (TM) 


GS 


035 


041* (SOS) 


RS 


036 


040* (DS) 


US 


037 


042*(FS) 







ASCII 


EBCDIC 


Character 


SIXBIT 


7-bit 


9-bit 


Space 


00 


040 


100 


j 


01 


041 


132 


■I 


02 


042 


177 


# 


03 


043 


173 


$ 


04 


044 


133 


% 


05 


045 


154 


& 


06 


046 


120 


i 


07 


047 


175 


( 


10 


050 


115 


) 


11 


051 


135 


* 


12 


052 


134 


+ 


13 


053 


116 


, 


14 


054 


153 


- 


15 


055 


140 


. 


16 


056 


113 


/ 


17 


057 


141 





20 


060 


360 


1 


21 


061 


361 


2 


22 


062 


362 


3 


23 


063 


363 ! 


4 


24 


064 


364 


5 


25 


065 


365 


6 


26 


066 


366 


7 


27 


067 


367 


8 


30 


070 


370 


9 


31 


071 


371 


: 


32 


072 


172 i 


r 


33 


073 


136 


< 


34 


074 


114 


= 


35 


075 


176 


> 


36 


076 


156 


? 


37 


077 


157 
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ASCII, SIXBIT, AND EBCDIC COLLATING SEQUENCES AND CONVERSIONS 



Table C-l (Cont. ) 
ASCII and SIXBIT Collating Sequence and Conversion to EBCDIC 







i ■ 
ASCII 


EBCDIC 






ASCII 


EBCDIC 


Character 


SIXBIT 


\ 7-bit 

i 


9-bit 




Character 


7-bit 


9-bit 


@ 


40 


! 100 


174 


j ^ 


140 


171 


A 


41 


' 101 


301 : j a 


141 


201 


B 


42 


102 


302 ■ ; b 


142 


202 


C 


43 


103 


303 ' ! c 


143 


203 


D 


44 


104 


304 d 


144 


204 


E 


45 


' 105 


305 e 


145 


205 


F 


46 


106 


306 f 


146 


206 


G 


47 


107 


307 g 


147 


207 


H 


50 


110 


310 h 


150 


210 


I 


51 


111 


311 ! ! i 


151 


211 


J 


52 


112 


321 ; j 


152 


221 


K 


53 


113 


322 ! k 


153 


222 


r 


54 


114 


323 ; 1 


154 


223 


M 


55 


115 


324 j m 


155 


224 


N 


56 


116 


325 . ! n 


156 


225 





57 


■ H7 


326 j o 


157 


226 


P 


60 


' 120 


327 i ! p 


160 


227 


Q 


61 


! 121 


330 q 


161 


230 


R 


62 


1 122 


331 i ; r 


162 


231 


S 


63 


■ 123 


342 s 


163 


242 


T 


64 


124 


343 ! : t 


164 


243 


U 


65 


125 


344 | ; u 


165 


244 


V 


66 


126 


34 5 ; ! v 


166 


245 


W 


67 


! 127 


346 j w 


167 


246 


X 


70 


1 130 


347 | j x 


170 


247 


Y 


71 


131 


350 y 


171 


250 


Z 


72 


132 


351 


! Z 


172 


251 


[ 


73 


133 


255 1 


i. ) 


173 


300 1 


\ 


74 


134 


340 


! 1 


174 


117 


] 


75 


135 


275 


i i 


175 


320 




76 


136 


137 




176 


241 




77 


137 




155 




Delete 


177 


007 
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ese EBCDIC codes either have 
or SIXBIT character sets, 
ent names. They are converted 
ters to preserve their un 
ter is converted back to EBCDI 



no equivalent in the 
or are referred to by 
to the indicated ASCII 

iqueness if the ASCII 

C. 



C-2 



ASCII, SIXBIT, AND EBCDIC COLLATING SEQUENCES AND CONVERSIONS 

Table C-2 shows the conversion of ASCII code to SIXBIT code. The 

table does not show ASCII codes 000 through 037 because they all 

convert to SIXBIT 74 (\) , except 11 (TAB) which converts to SIXBIT 00 
(space) . 



Table C-2 
ASCII to SIXBIT Conversion 





ASCII 




Character 


7-bit 


SIXBIT 


Space 


040 


00 


; 


041 


01 


ii 


042 


02 


# 


043 


03 


$ 


044 


04 


% 


045 


05 


& 


046 


06 


i 


047 


07 


( 


050 


10 


) 


051 


11 


* 


052 


12 


+ 


053 


13 


/ 


054 


14 


- 


055 


15 


. 


056 


16 


/ 


057 


17 





060 


20 


1 


061 


21 


2 


062 


22 


3 


063 


23 


4 


064 


24 


5 


065 


25 


6 


066 


26 


7 


067 


27 


8 


070 


30 


9 


071 


31 


: 


072 


32 


i 


073 


33 


< 


074 


34 


= 


075 


35 


> 


076 


36 


? 


077 


37 





ASCII 




Character 


7-bit 


SIXBIT 


@ 


100 


40 


A 


101 


41 


B 


102 


42 


C 


103 


43 


D 


104 


44 


E 


105 


45 


F 


106 


46 


G 


107 


47 


H 


110 


50 


I 


111 


51 


J 


112 


52 


K 


113 


53 


I 


114 


54 


M 


115 


55 


N 


116 


56 





117 


57 


P 


120 


60 


Q 


121 


61 


R 


122 


62 


S 


123 


63 


T 


124 


64 


U 


125 


65 


V 


126 


66 


W 


127 


67 


X 


130 


70 


Y 


131 


71 


Z 


132 


72 


[ 


133 


73 


\ 


134 


74 


] 


135 


7 5 


+ 


136 


76 


■4- 


137 


77 
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ASCII, SIXBIT, AND EBCDIC COLLATING SEQUENCES AND CONVERSIONS 



Table C-2 (Cont.) 
ASCII to SIXBIT Conversion 



ASCII 


ASCII 


SIXBIT 


SIXBIT 


code 


character 


code 


character 


140 


N 


74 


\ 


141 


a 


41 


A 


142 


b 


42 


B 


143 


c 


43 


C 


144 


d 


44 


D 


145 


e 


45 


E 


146 


f 


46 


P 


147 


g 


47 


Q 


150 


h 


50 


H 


151 


i 


51 


I 


152 


J 


52 


J 


153 


k 


53 


K 


154 


1 


54 


L 


155 


m 


55 


M 


156 


n 


56 


N 


157 


o 


57 


O 


160 


P 


60 


P 


161 


q 


61 


Q 


162 


r 


62 


R 


163 


s 


63 


S 


164 


t 


64 


T 


165 


u 


65 


U 


166 


V 


66 


V 


167 


w 


67 


W 


170 


X 


70 


X 


171 


y 


71 


Y 


172 


z 


72 


Z 


173 


i 


73 


[ 


174 


1 


74 


\ 


175 


1 


75 


] 


176 


) 


74 


\ 


177 


delete 


74 


\ 
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ASCII, SIXBIT, AND EBCDIC COLLATING SEQUENCES AND CONVERSIONS 

Table C-3 shows the EBCDIC collating sequence and the conversion from 
EBCDIC to ASCII. When conversion is from EBCDIC to SIXBIT, it is as 
if the code was converted to ASCII and then from ASCII to SIXBIT. 



Table C-3 
EBCDIC Collating Sequence and Conversion to ASCII 



EBCDIC 


EBCDIC 


ASCII 


ASCII 


code 


character 


code 


character 


000 


NUL 


000 


NUL 


001 


SOH 


001 


SOH 


002 


STX 


002 


STX 


003 


ETX 


003 


ETX 


1 004 


PF 


024 


DC 4 


005 


HT 


011 


HT 


006 


LC 


016 


SO 


007 


Delete 


177 


Delete 


010 




134 


\ 


011 




134 


\ 


012 


SMM 


134 


\ 


013 


VT 


013 


VT 


014 


FF 


014 


FF 


015 


CR 


134 


\ 


016 


SO 


134 


\ 


017 


SI 


134 


\ 


020 


DLE 


134 


\ 


021 


DC1 


134 


\ 


022 


DC2 


134 


\ 


023 


TM 


034 


FS 


024 


RES 


021 


DC1 


025 


NL 


015 


CR 


026 


BS 


010 


BS 


027 


IL 


026 


SYN 


030 


CAN 


134 


\ 


031 


EM 


031 


EM 


032 


CC 


032 


SUB 


033 


CU1 


134 


\ 


034 


IFS 


134 


\ 


035 


IGS 


134 


\ 


036 


IRS 


134 


\ 


037 


I US 


134 


\ 


040 


DS 


036 


RS 


041 


SOS 


035 


GS 


042 


FS 


037 


US 


043 




134 


\ 


044 


BYP 


020 


DLE 


045 


LF 


012 


LF 


046 


ETB 


027 


ETB 


047 


ESC 


033 


ESC 



EBCDIC 


EBCDIC 


ASCII 


ASCII 


code 


character 


code 


character 


050 




134 


\ 


051 




134 


\ 


052 


SM 


030 


CAN 


053 


CUZ 


134 


\ 


054 




134 


\ 


055 


ENQ 


005 


ENQ 


056 


ACK 


006 


ACK 


057 


BEL 


007 


BEL 


060 




134 


\ 


061 




134 


\ 


-62 




134 


\ 


063 




134 


\ 


064 


PN 


022 


DC 2 


065 


RS 


023 


DC 3 


066 


UC 


017 


SI 


067 


EOT 


004 


EOT 


070 




134 


\ 


071 




134 


\ 


072 




134 


\ 


073 




134 


\ 


074 


CU3 


134 


\ 


075 


DC 4 


025 


NAK 


076 


NAK 


134 


\ 


077 


SUB 


134 


\ 


100 


Space 


040 


Space 


101 




134 


\ 


102 




134 


\ 


103 




134 


\ 


104 




134 


\ 


105 




134 


\ 


106 




134 


\ 


107 




134 


\ 


110 




134 


\ 


111 




134 


\ 


112 


<: 


134 


\ 


113 


. 


056 




114 


< 


074 


< 


115 


( 


050 


( 


116 


+ 


053 


+ 


117 


1 


174 


1 
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ASCII, SIXBIT, AND EBCDIC COLLATING SEQUENCES AND CONVERSIONS 



Table C-3 (Cont. ) 
EBCDIC Collating Sequence and Conversion to ASCII 



EBCDIC 


EBCDIC 


ASCII 


ASCII 


code 


character 


code 


character 


120 


& 


046 


& 


121 




134 


\ 


122 




134 


\ 


123 




134 


\ 


124 




134 


\ 


125 




134 


\ 


126 




134 


\ 


127 




134 


\ 


130 




134 


\ 


131 




134 


\ 


132 


i 


041 


i 


133 


$ 


044 


$ 


134 


* 


052 


* 


135 


1 


051 


) 


136 




073 




137 




137 


\ 


140 


_ 


055 


- 


141 


/ 


057 


/ 


142 


i 134 


\ 


143 


134 


\ 


144 




134 


\ 


145 




134 


\ 


146 




134 


\ 


147 




134 


\ 


150 




134 


\ 


151 




134 


\ 


152 




134 


\ 


153 


/ 


054 


t 


154 


% 


045 


% 


155 




137 




156 


> 


076 


> 


157 


■? 


077 


■p 


160 




134 


\ 


161 




134 


\ 


162 




134 


\ 


163 




134 


\ 


164 




134 


\ 


165 




134 


\ 


166 




134 


\ 


167 




134 


\ 



EBCDIC 


EBCDIC 


ASCII 


ASCII 


code 


character 


code 


character 


170 




134 


\ 


171 




140 




172 


: 


072 


: 


173 


# 


043 


# 


174 


<a 


100 


@ 


175 


f 


47 


i 


176 


= 


075 


= 


177 


ir 


042 


" 


200 




134 


\ 


201 


a 


141 


a 


202 


b 


142 


b 


203 


c 


143 


c 


204 


d 


144 


d 


205 


e 


145 


e 


206 


f 


146 


f 


207 


g 


147 


g 


210 


h 


150 


h 


211 


i 


151 


i 


212 




134 


\ 


213 




134 


\ 


214 




134 


\ 


215 




134 


\ 


216 




134 


\ 


217 




134 


\ 


22 




134 


\ 


221 


J 


152 


J 


222 


k 


153 


k 


223 


1 


154 


1 


224 


m 


155 


m 


225 


n 


156 


n 


226 





157 





227 


P 


160 


P 


230 


q 


161 


q 


231 


r 


162 


r 


232 




134 


\ 


233 




134 


\ 


234 




134 


\ 


235 




134 


\ 


236 




134 


\ 


237 




134 


\ 

1 
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ASCII, SIXBIT, AND EBCDIC COLLATING SEQUENCES AND CONVERSIONS 



Table C-3 (Cont.) 
EBCDIC Collating Sequence and Conversion to ASCII 



EBCDIC 


EBCDIC 


ASCII 


ASCII 


code 


character 


code 


character 


240 




134 


\ 


241 




176 


'--w 


242 


s 


163 


s 


243 


t 


164 


t 


244 


u 


165 


u 


245 


V 


166 


V 


246 


w 


167 


w 


247 


X 


170 


X 


250 


y 


171 


y 


251 


z 


172 


z 


252 




134 


\ 


253 




134 


\ 


254 




134 


\ 


255 


[ 


133 


[ 


256 




134 


\ 


257 




134 


\ 


260 




175 


( 


261 




134 


\ 


262 




134 


\ 


263 




134 


\ 


264 




134 


\ 


265 




134 


\ 


266 




134 


\ 


267 




134 


\ 


270 




134 


\ 


271 




134 


\ 


272 




134 


\ 


273 




134 


\ 


274 




134 


\ 


275 


] 


135 


] 


276 




134 


\ 


277 




134 


\ 


300 




173 


I 


301 


A 


101 


A 


302 


B 


102 


B 


303 


C 


103 


C 


304 


D 


104 


D 


305 


E 


105 


E 


306 


F 


106 


F 


307 


G 


107 


G 


360 





060 


1 


361 


1 


061 


1 


362 


2 


062 


2 


363 


3 


063 


3 


364 


4 


064 


4 


365 


5 


065 


5 


366 


6 


066 


6 


367 


7 


067 


7 



EBCDIC 


EBCDIC 


ASCII 


ASCII 


code 


character 


code 


character 


310 


H 


110 


H 


311 


I 


110 


I 


312 




134 


\ 


313 




134 


\ 


314 




134 


\ 


315 




134 


\ 


316 




134 


\ 


317 




134 


\ 


320 




175 


[ 


321 


J 


112 


J 


322 


K 


113 


K 


323 


L 


114 


L 


324 


M 


115 


M 


325 


N 


116 


N 


326 


O 


117 


O 


327 


P 


120 


P 


330 


Q 


121 


Q 


331 


R 


122 


R 


332 




134 


\ 


333 




134 


\ 


334 




134 


\ 


335 




134 


\ 


336 




134 


\ 


337 




134 


\ 


340 




134 


\ 


341 




134 


\ 


342 


S 


123 


S 


343 


T 


124 


T 


344 


U 


125 


U 


345 


V 


126 


V 


346 


W 


127 


W 


347 


X 


130 


X 


350 


Y 


131 


Y 


351 


Z 


132 


Z 


352 




134 


\ 


353 




134 


\ 


354 




134 


\ 


355 




134 


\ 


356 




134 


\ 


357 




134 


\ 


370 


8 


070 


8 


371 


9 


071 


9 


372 




134 


\ 


373 




134 


\ 


374 




134 


\ 


375 




134 


\ 


376 




134 


\ 


377 




134 


\ 
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APPENDIX D 
ALTERNATE NUMERIC TEST 



LIBOL as normally assembled will include the ANSI standard NUMERIC 
test. However, a switch has been provided to allow the installation 
manager to replace this with the ALTERNATE NUMERIC test at 
installation time. 

The ALTERNATE NUMERIC test result is TRUE under the following 
conditions: 

1. For alphanumeric and unsigned numeric items, each character 
must be a digit (0 through 9) . Leading and trailing spaces 
and leading and trailing tabs are ignored. No signs are 
permitted. 

2. For signed numeric items, the sign may have only one of the 
three following representations; a leading graphic sign ("+" 
or "-") , a trailing graphic sign, or a trailing embedded 
sign. Leading and trailing spaces and leading and trailing 
tabs are ignored. All other characters must be digits. 
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APPENDIX E 
DEFINING LOGICAL NAMES UNDER TOPS-p20 



Most of the file specifications for the COBOL compiler and the 
utilities associated with COBOL-74 use project-programmer numbers to 
identify areas on the disk. Users of TOPS-20 do not normally deal 
with project-programmer numbers; named directories are used instead. 
However, the compiler and the utilities often will not accept named 
directories in the command strings. There are two ways for TOPS-20 
users to specify a directory to be searched. One is to use the TRANSL 
command to translate a named directory to a project-programmer number. 
This way is perfectly functional/ but usually inconvenient. The other 
way is to define a logical name and use it in the command string in 
place of the device name and the project-programmer number. The 
TRANSL and DEFINE commands are described in the DECSY5TEM-20 User's 
Guide. Refer to that manual for more information on these two 
commands. A short description of the DEFINE command has been included 
here for convenience. 

The DEFINE command has the following format: 

@DEFINE (LOGICAL NAME) logname: (AS) filespecs 

where: 

logname: is the logical name being defined. It consists of up 
to 6 alphanumeric characters (A-Z and 0-9 only) 
followed by a colon. 

filespecs is a list of file specifications (separated by commas) 
that define the logical name. A file specification may 
contain any combination of a structure name, device 
name, directory, file name, file type, generation 
number, and wildcards. If you wish to remove a logical 
name, you should leave the filespecs entry blank. 

The following characteristics of the DEFINE command should be noted. 

1. The DEFINE command is used at TOPS-20 monitor level (or in a 
batch or command file) . The command does not alter any 
program and leaves you at monitor level. 

2. Some programs may expect certain logical names to be defined 
certain ways. You should exercise caution in deciding on a 
character string to use as a logical name. See the 
INFORMATION command in the DECSYSTEM-20 User's Guide for a 
description of how to determine what logical names are 
already defined. 
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DEFINING LOGICAL NAMES~UNDER TOPS-20 

Example: 

DEFINE PR: <PAYROLL> 

will allow you to type the following command to the COBOL-74 
compiler : 

PR:FEDTAX=TESTFT.CBL 

This command string will take a file in your connected directory 
named TESTFT.CBL and compile it, writing the .REL file in the 
directory <PAYROLL>. As written, the command string would also 
write the .LST file to your connected directory. If you wish to 
have it in the <PAYROLL> directory you must use the following 
command: 

PR : FEDTAX , PR : FEDTAX=TESTFT . CBL 
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GLOSSARY 



The terms in this glossary are defined in accordance with COBOL as 
used in this document. Therefore, these terms may not have the same 
meanings in other languages. 

These definitions are also intended to serve either as reference 
material or as introductory material to be reviewed before reading the 
detailed language specifications that follow. For this reason, these 
definitions are, in most instances, brief and do not include detailed 
syntactical rules. 

Abbreviated Combined Relation Condition 

The combined condition that results from the explicit omission of 
a common subject, or a common subject and common relational 
operator in a consecutive sequence of relation conditions. 

Access Mode 

The manner in which records are to be operated upon within a 
file. 

Actual Decimal Point 

The physical representation (decimal point characters period (.) 
or comma (,)) of the decimal point position in a data item. 

Alphabet-Name 

A user-defined word in the SPECIAL-NAMES paragraph of the 
Environment Division that assigns a name to a specific character 
set and/or collating sequence. 

Alphabetic Character 

A character that belongs to the following set of letters: A, B, 
C, D, E, F, G, H, I, J, K, L, M, N, 0, P, Q, R, S, T, U, V, W, X, 
Y, Z, and space. 

Alphanumeric Character 

Any character in the computer's character set. 

Alternate Record Key 

A key, other than the prime record key, whose contents identify a 
record within an indexed file. 
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Arithmetic Expression 

An arithmetic expression can be an identifier or a numeric 
elementary item, a numeric literal, such identifiers and literals 
separated by arithmetic operators, two arithmetic expressions 
separated by an arithmetic operator, or an arithmetic expression 
enclosed in parentheses. 

Arithmetic Operator 

A single character, or a fixed 2-character combination that 
belongs to the following set: 

Character Meaning 

+ addition 

subtraction 
* multiplication 

/ division 

** exponentiation 

Ascending Key 

A key upon the values of which data is ordered starting with the 
lowest value of key up to the highest value of key in accordance 
with the rules for comparing data items. 

Assumed Decimal Point 

A decimal point position that does not involve the existence of 
an actual character in a data item. The assumed decimal point 
has logical meaning but no physical representation. 

At End Condition 

A condition caused: 

1. during the execution of a READ statement for a sequentially 
accessed file. 

2. during the execution of a RETURN statement, when no next 
logical record exists for the associated sort or merge file. 

3. during the execution of a SEARCH statement, when the search 
operation terminates without satisfying the condition 
specified in any of the associated WHEN phrases. 

Block 

A physical unit of data that is normally composed of one or more 
logical records. For mass storage files, a block may contain a 
portion of a logical record. The size of a block has no direct 
relationship to the size of the file within which the block is 
contained, or to the size of the logical record(s) that are 
either continued within the block or that overlap the block. The 
term is synonymous with physical record. 

Body Group 

Generic name for a report group of TYPE DETAIL, CONTROL HEADING, 
or CONTROL FOOTING. 

Called Program 

A program that is the object of a CALL statement combined at 
object time with the calling program to produce a run unit. 
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Calling Program 

A program that executes a CALL to another program. 

Cd-Name 

A user-defined word that names an MCS interface area described in 
a communication description entry within the Communication 
Section of the Data Division. 

Character 

The basic indivisible unit of the language. 

Character Position 

A character position is the amount of physical storage required 
to store a single standard data format character described as 
usage is DISPLAY. Further characteristics of the physical 
storage are defined by the implementor. 

Character -St ring 

A sequence of contiguous characters that form a COBOL word, a 
literal, a PICTURE character-string, or a comment-entry. 

Class Condition 

The proposition, for which a truth value can be determined, that 
the content of an item is wholly alphabetic or is wholly numeric. 

Clause 

A clause is an ordered set of consecutive COBOL character-strings 
whose purpose is to specify an attribute of an entry. 

COBOL Character Set 

The complete COBOL character set consists of the 51 characters 
listed below: 

Character Meaning 

0,1, ... ,9 digit 

A,B, . . . ,Z letter 

space (blank) 
+ plus sign 

minus sign (hyphen) 
* asterisk 

/ stroke (virgule, slash) 

equal sign 
$ currency sign 

, comma (decimal point) 

; semicolon 

period (decimal point) 
" quotation mark 

( left parenthesis 

) right parenthesis 

> greater than symbol 

< less than symbol 
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COBOL Word 

(See Word. ) 

Collating Sequence 

The sequence in which the characters that are acceptable in a 
computer are ordered for purposes of sorting, merging, and 
comparing. 

Column 

A character position within a print line. The columns are 
numbered from 1, by 1, starting at the leftmost character 
position of the print line and extending to the rightmost 
position of the print line. 

Combined Condition 

A condition that is the result of connecting two or more 
conditions with the 'AND' or the 'OR' logical operator. 

Comment-Entry 

An entry in the Identification Division that may be any 
combination of characters from the computer character set. 

Comment Line 

A source program line represented by an asterisk in the indicator 
area of the line and any characters from the computer's character 
set in area A and area B of that line. The comment line serves 
only as documentation in a program. A special form of comment 
line represented by a stroke (/) in the indicator area of the 
line, and any characters from the computer's character set in 
area A and area B of that line, causes page ejection prior to 
printing the comment. 

V 

Communication Description Entry 

An entry in the Communication Section of the Data Division that 
is composed of the level indicator CD, followed by a cd-name, and 
then followed by a set of clauses as required. It describes the 
interface between the Message Control System (MCS) and the COBOL 
program. 

Communication Device 

A mechanism (hardware or hardware/software) capable of sending 
data to a queue and/or receiving data from a queue. This 
mechanism may be a computer or a peripheral device. One or more 
programs containing communication description entries and 
residing within the same computer define one or more of these 
mechanisms . 

Communication Section 

The section of the Data Division that describes the interface 
areas between the MCS and the program. This section is composed 
of one or more CD description entries. 

Compile Time 

The time at which a COBOL source program is translated by a COBOL 
compiler to a COBOL object program. 
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Compiler Directing Statement 

A statement beginning with a compiler-directing verb that causes 
the compiler to take a specific action during compilation. 

Complex Condition 

A condition in which one or more logical operators act upon one 
or more conditions. (See Negated Simple Condition, Combined 
Condition, Negated Combined Condition.) 

Computer -Name 

A system-name that identifies the computer upon which the program 
is to be compiled or run. 

Condition 

A status of a program at execution time for which a truth value 
can be determined. Where the term 'condition 1 (condition-1 , 
condition-2, ...) appears in these language specifications in or 
in reference to 'condition' (condition-1, condition-2, ...) of a 
general format, it is a conditional expression consisting of 
either a simple condition optionally parenthesized, or a combined 
condition consisting of the syntactically correct combination of 
simple conditions, logical operators, and parentheses, for which 
a truth value can be determined. - 

Condition-Name 

A user-defined word assigned to a specific value, set of values, 
or range of values, within the complete set of values that a 
conditional variable may possess; or the user-defined word 
assigned to a status of an implementor-def ined switch or device. 

Condition-Name Condition 

The proposition, for which a truth value can be determined, that 
the value of a conditional variable is a member of the set of 
values attributed to a condition-name associated with the 
conditional variable. 

Conditional Expression 

A simple condition or a complex condition specified in an IF, 
PERFORM, or SEARCH statement. (See Simple Condition and Complex 
Condition. ) 

Conditional Statement 

A conditional statement specifies that the truth value of a 
condition is to be determined, and that the subsequent action of 
the object program is dependent on this truth value. 

Conditional Variable 

A data item of which one or more values has a condition-name 
assigned to it. 

Configuration Section 

A section of the Environment Division that describes overall 
specifications of source and object computers. 
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Connective 

A reserved word that is used to: 

1. Associate a data-name, paragraph-name, condition-name, or 
text-name with its qualifier. 

2. Link two or more operands written in a series. 

3. Form conditions (logical connectives). (See Logical 
Operator . ) 

Contiguous Items 

Items that are described by consecutive entries in the Data 
Division, and that bear a definite hierarchical relationship to 
each other. 

Control Break 

A change in the value of a data item that is referenced in the 
CONTROL clause. More generally, a change in the value of a data 
item that is used to control the hierarchical structure of a 
report. 

Control Break Level 

The relative position within a control hierarchy at which the 
most major control break occurred. 

Control Data Item 

A data item, in whose contents a change may produce a control 
break. 

Control Data-Name 

A data-name that appears in a CONTROL clause and refers to a 
control data item. 

Control Footing 

A report group that is presented at the end of the control group 
of which it is a member. 

Control Group 

A set of body groups that is presented for a given value of a 
control data item or of FINAL. Each control group may begin with 
a CONTROL HEADING, end with a CONTROL FOOTING, and contain DETAIL 
report groups. 

Control Heading 

A report group that is presented at the beginning of the control 
group of which it is a member. 

Control Hierarchy 

A designated sequence of report subdivisions defined by the 
positional order of FINAL and the data-names within a CONTROL 
clause . 
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Counter 

A data item used for storing numbers or number representations in 
a manner that permits these numbers to be increased or decreased 
by the value of another number, or to be changed or reset to zero 
or to an arbitrary positive or negative value. 

Currency Sign 

The character '$' of the COBOL character set. 

Currency Symbol 

The character defined by the CURRENCY SIGN clause in the 
SPECIAL-NAMES paragraph. If no CURRENCY SIGN clause is present 
in a COBOL source program, the currency symbol is identical to 
the currency sign. 

Current Record 

The record that is available in the record area associated with 

the file. 

Current Record Pointer 

A conceptual entity that is used in the selection of the next 
record. 



Data Clause 

A clause that appears in a data description entry in the Data 
Division and that provides information describing a particular 
attribute of a data item. 

Data Description Entry 

An entry in the Data Division that is composed of a level-number 
followed by a data-name, if required, and then followed by a set 
of data clauses, as required. 

Data Item 

A character or a set of contiguous characters (excluding, in 
either case, literals) defined as a unit of data by the COBOL 
program. 

Data-Name 

A user-defined word that names a data item described in a data 
description entry in the Data Division. When used in the general 
formats, 'data-name 1 represents a word that cannot be 
subscripted, indexed, or qualified unless specifically permitted 
by the rules for that format. 

Debugging Line 

A debugging line is any line with 'D' in the indicator area of 
the line. 

Debugging Section 

A debugging section is a section that contains a USE FOR 
DEBUGGING statement. 
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Declaratives 

A set of one or more special-purpose sections, written at the 
beginning of the Procedure Division, the first of which is 
preceded by the key word DECLARATIVES, and the last of which is 
followed by the key words END DECLARATIVES. A declarative is 
composed of a section header, followed by a USE 
compiler-directing sentence, followed by a set of zero, one, or 
more associated paragraphs. 

Declarative-Sentence 

A compiler-directing sentence consisting of a single USE 
statement terminated by the separator period. 

Delimiter 

A character or a sequence of contiguous characters that identify 
the end of a string of characters and separate that string of 
characters from the following string of characters. A delimiter 
is not part of the string of characters that it delimits. 

Descending Key 

A key upon the values of which data is ordered starting with the 
highest value of key down to the lowest value of key, in 
accordance with the rules for comparing data items. 

Destination 

The symbolic identification of the receiver of a transmission 
from a queue. 

Digit Position 

A digit position is the amount of physical storage required to 
store a single digit. This amount may vary depending on the 
usage of the data item describing the digit position. Further 
characteristics of the physical storage are defined by the 
implementor . 

Division 

A set of zero, one, or more sections of paragraphs, called the 
division body, that are formed and combined in accordance with a 
specific set of rules. There are four divisions in a COBOL 
program: Identification, Environment, Data, and Procedure. 

Division Header 

A combination of words followed by a period and a space that 
indicates that beginning of a division. The division headers 
are: 

IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

PROCEDURE DIVISION [USING data-name-1 [data-name-2] ... ] . 

Dynamic Access 

An access mode in which specific logical records can be obtained 
from or placed into a mass storage file in a nonsequential manner 
(see Random Access) , and obtained from a file in a sequential 
manner (see Sequential Access), during the scope of the same OPEN 
statement. 
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Editing Character 

A single character or a fixed 2-character combination belonging 
to the following set: 

Character Meaning 

B space 

zero 

+ plus 

minus 
CR credit 

DB debit 

Z zero suppress 

* check protect 

$ currency sign 

, comma (decimal point) 

period (decimal point) 
/ stroke (virgule, slash) 

Elementary Item 

A data item that is described as , not being further logically 
subdivided. 

End of Procedure Division 

The physical position in a COBOL source program after which no 
further procedures appear. 

Entry 

Any descriptive set of consecutive clauses terminated by a period 
and written in the Identification Division, Environment Division, 
or Data Division of a COBOL source program. 

Environment Clause 

A clause that appears as part of an Environment Division entry. 

Execution Time 

(See Object Time. ) 

Extend Mode 

The state of a file after execution of an OPEN statement with the 
EXTEND phrase specified for that file, and before the execution 
of a CLOSE statement for that file. 

Figurative Constant 

A compiler-generated value referenced through the use of certain 
reserved words. 

File 

A collection of records. 
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File Clause 

A clause that appears as part of any of the following Data 
Division entries: 

File description (FD) 
Sort-merge file description (SD) 
Communication description (CD) 

FILE-CONTROL 

The name of an Environment Division paragraph in which the data 
files for a given source program are declared. 

File Description Entry 

An entry in the File Section of the Data Division that is 
composed of the level indicator FD , followed by a file-name, and 
then followed by a set of file clauses as required. 

File-Name 

A user-defined word that names a file described in a file 

description entry or a sort-merge file description entry within 

the File Section of the Data Division. 

File Organization 

The permanent logical file structure established at the time that 
a file is created. 

File Section 

The section of the Data Division that contains file description 
entries and sort-merge file description entries together with 
their associated record descriptions. 

Format 

A specific arrangement of a set of data. 

Group Item 

A named contiguous set of elementary or group items. 

High Order End 

The leftmost character of a string of characters. 

I-O-CONTROL 

The name of an Environment Division paragraph in which object 
program requirements for specific input-output techniques, rerun 
points, sharing of same areas by several data files, and multiple 
file storage on a single input-output device are specified. 

1-0 Mode 

The state of a file after execution of an OPEN statement, with 
the input-output phrase specified, for that file and before the 
execution of a CLOSE statement for that file. 
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Identifier 

A data-name followed as required by the syntactically correct 

combination of qualifiers, subscripts, and indexes necessary to 

make unique reference to a data item. 

Imperative Statement 

A statement that begins with an imperative verb and specifies an 
unconditional action to be taken. An imperative statement may 
consist of a sequence of imperative statements. 

Implemen tor -Name 

A system-name that refers to a particular feature available on 
that implementor ' s computing system. 

Index 

A computer storage position or register, the contents of which 
represent the identification of a particular element in a table. 

Index Data Item 

A data item in which the value associated with an index-name can 
be stored in a form specified by the implementor. 

Index-Name 

A user-defined word that names an index associated with a 
specific table. 

Indexed Data-Name 

An identifier that is composed of a data-name followed by one or 
more index-names enclosed in parentheses. 

Indexed File 

A file with indexed organization. 

Indexed Organization 

The permanent logical file structure in which each record is 
identified by the value of one or more keys within that record. 

Input File 

A file that is opened in the input mode. 

Input Mode 

The state of a file after execution of an OPEN statement with the 
INPUT phrase specified for that file, and before the execution of 
a CLOSE statement for that file. 

Input-Output File 

A file that is opened in the input-output mode. 

Input-Output Section 

The section of the Environment Division that names the files and 
the external media required by an object program, and that 
provides information required for transmission and handling of 
data during execution of the object program. 
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Input Procedure 

A set of statements that is executed each time a record is 
released to the sort file. 

Integer 

A nonnegative numeric literal or a numeric data item that does 
not include any character positions to the right of the assumed 
decimal point. Where the term 'integer' appears in general 
formats, integer must not be a numeric data item, and must not be 
signed or zero, unless explicitly allowed by the rules of that 
format. 

Invalid Key Condition 

A condition at object time caused when a specific value of the 
key associated with an indexed or relative file is determined to 

be invalid. 



Key 



A data item that identifies the location of a record, or a set of 
data items that serve to identify the ordering of data. 



Key of Reference 

The key, either prime or alternate, currently being used to 
access records within an indexed file. 

Key Word 

A reserved word whose presence is required when the format in 
which the word appears is used in a source program. 

Language-Name 

A system-name that specifies a particular programming language. 

Level Indicator 

Two alphabetic characters that identify a specific type of file 
or a position in hierarchy. 

Level-Number 

A user-defined word that indicates the position of a data item in 
the hierarchical structure of a logical record or that indicates 
special properties of a data description entry. A level-number 
is expressed as a 1- or 2-digit number. Level-numbers in the 
range 1 through 49 indicate the position of a data item in the 
hierarchical structure of a logical record. Level-numbers in the 
range 1 through 9 may be written either as a single digit or as a 
zero followed by a significant digit. Level-numbers 66, 77, and 
88 identify special properties of a data description entry. 

Library-Name 

A user-defined word that names a COBOL library that is to be used 
by the compiler for a given source program compilation. 
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Library Text 

A sequence of character-strings and/or separators in a COBOL 
library. 

Line 

(See Report Line.) 

Line Number 

An integer that denotes the vertical position of a report line on 
a page. 

Linkage Section 

The section in the Data Division of the called program that 
describes data items available from the calling program. These 
data items may be referred to by both the calling and called 
program. 

Literal 

A character-string whose value is implied by the ordered set of 
characters constituting the string. 

Logical Operator 

One of the reserved words AND, OR, or NOT. In the formation of a 
condition, both or either of AND and OR can be used as logical 
connectives. NOT can be used for logical negation. 

Logical Record 

The most inclusive data item. The level-number for a record is 
01. (See Report Writer Logical Record.) 

Low Order End 

The rightmost character of a string of characters. 

Mass Storage 

A storage medium on which data may be oganized and maintained in 
both a sequential and nonsequential manner. 

Mass Storage Control System (MSCS) 

An input-output control system that directs or controls the 
processing of mass storage files. 

Mass Storage File 

A collection of records that is assigned to a mass storage 
medium. 

MCS 

(See Message Control System.) 

Merge File 

A collection of records to be merged by a MERGE statement. The 
merge file is created and can be used only by the merge function. 
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Message 

Data associated with an end of message indicator or an end of 
group indicator. (See Message Indicators.) 

Message Control System (MCS) 

A communication control system that supports the processing of 
messages . 

Message Count 

The count of the number of complete messages that exist in the 
designated queue of messages. 

Message Indicators 

EGI (end of group indicator), EMI (end of message indicator), and 
ESI (end of segment indicator) are conceptual indications that 
notify the MCS that a specific condition exists (end of group, 
end of message, end of segment) . 

Within the hierarchy of EGI, EMI, and ESI, an EGI is conceptually 

equivalent to an ESI, an EMI, and an EGI. An EMI is conceptually 

equivalent to an ESI and an EMI. Thus, a segment may be 

terminated by an ESI, an EMI, or an EGI. A message may be 

terminated by an EMI or an EGI. 

Message Segment 

Data that forms a logical subdivision of a message normally 
associated with an end of segment indicator. (See Message 
Indicators. ) 

Mnemonic-Name 

A user-defined word that is associated in the Environment 
Division with a specified implementor-name . 



MSCS 



(See Mass Storage Control System.) 



Native Character Set 

The implementor-def ined character set associated with the 
computer specified in the OBJECT-COMPUTER paragraph. 

Native Collating Sequence 

The implementor-def ined collating sequence associated with the 

computer specified in the OBJECT-COMPUTER paragraph. 

Negated Combined Condition 

The 'NOT' logical operator immediately followed by a 
parenthesized combined condition. 

Negated Simple Condition 

The 'NOT' logical operator immediately followed by a simple 
condition . 
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Next Executable Sentence 

The next sentence to which control will be transferred after 
execution of the current statement is complete. 

Next Executable Statement 

The next statement to which control will be transferred after 
execution of the current statement is complete. 

Next Record 

The record that logically follows the current record of a file. 

Noncontiguous Items 

Elementary data items in the Working-Storage and Linkage Sections 
that bear no hierarchical relationship to other data items. 

Nonnumeric Item 

A data item whose description permits its contents to be composed 

of any combination of characters taken from the computer's 

character set. Certain categories of nonnumeric items may be 

formed from more restricted character sets. 

Nonnumeric Literal 

A character-string bounded by quotation marks. The string of 
characters may include any character in the computer's character 
set. To represent a single quotation mark character within a 
nonnumeric literal, two contiguous quotation marks must be used. 

Numeric Character 

A character that belongs to the following set of digits: 0, 1, 
2, 3, 4, 5, 6, 7, 8, 9. 

Numeric Item 

A data item whose description restricts its contents to a value 
represented by characters chosen from the digits '0' through '9'; 
if signed, the item may also contain a '+', '-', or other 
representation of an operational sign. 

Numeric Literal 

A literal composed of one or more numeric characters that also 
may contain either a decimal point, or an algebraic sign, or 
both. The decimal point must not be the rightmost character. 
The algebraic sign, if present, must the leftmost character. 

OBJECT-COMPUTER 

The name of an Environment Division paragraph in which the 
computer environment, within which the object program is 
executed, is described. 

Object of Entry 

A set of operands and reserved words within a Data Division entry 
that immediately follows the subject of the entry. 
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Object Program 

A set or group of executable machine language instructions and 
other material designed to interact with data to provide problem 
solutions. In this context, an object program is generally the 
machine language result of the operation of a COBOL compiler on a 
source program. Where there is no danger of ambiguity, the word 
'program' alone may be used in place of the phrase 'object 
program. ' 

Object Time 

The time at which an object program is executed. 

Open Mode 

The state of a file after execution of an OPEN statement for that 
file, and before the execution of a CLOSE statement for that 
file. The particular open mode is specified in the OPEN 
statement as either INPUT, OUTPUT, I-O, or EXTEND. 

Operand 

Whereas the general definition of operand is 'that component that 
is operated upon,' for the purposes of this publication any 
lowercase word (or words) that appears in a statement or entry 
format may be considered to be an operand and, as such, is an 
implied reference to the data indicated by the operand. 

Operational Sign 

An algebraic sign associated with a numeric data item or a 
numeric literal, which indicates whether its value is positive or 
negative. 

Optional Word 

A reserved word that is included in a specific format only to 
improve the readability of the language and whose presence is 
optional to the user when the format in which the word appears is 
used in a source program. 

Output File 

A file that is opened in either the output mode or the extend 
mode. 

Output Mode 

The state of a file after execution of an OPEN statement, with 
the OUTPUT or EXTEND phrase specified for that file, and before 
the execution of a CLOSE statement for that file. 

Output Procedure 

A set of statements to which control is given during execution of 
a SORT statement after the sort function is completed, or during 
execution of a MERGE statement after the merge function has 
selected the next record in merged order. 
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Page 

A vertical division of a report representing a physical 
separation of report data, the separation being based on internal 
reporting requirements and/or external characteristics of the 
reporting medium. 

Page Body 

That part of the logical page in which lines can be written 
and/or spaced. 

Page Footing 

A report group that is presented at the end of a report page as 
determined by the Report Writer Control System. 

Page Heading 

A report group that is presented at the beginning of a report 
page and determined by the Report Writer Control System. 

Paragraph 

In the Procedure Division, a paragraph-name followed by a period 
and a space, and by zero, one, or more sentences. In the 
Identification and Environment Divisions, a paragraph header 
followed by zero, one, or more entries. 

Paragraph Header 

A reserved word followed by a period and a space that indicates 
the beginning of a paragraph in the Identification and 
Environment Divisions, The permissible paragraph headers are: 

In the Identification Division.: 

PROGRAM- ID. 

AUTHOR, 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY." 

In the Environment Division: 

SOURCE-COMPUTER. 

OBJECT-COMPUTER. 

SPECIAL-NAMES. 

FILE-CONTROL. 

I-O-CONTROL. 

Paragraph-Name 

A user-defined word that identifies and begins a paragraph in the 
Procedure Division. 

Phrase 

A phrase is an ordered set of one or more consecutive COBOL 
character-strings that form a portion of a COBOL procedural 
statement or of a COBOL clause. 
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Physical Record 

(See Block.) 

Prime Record Key 

A key whose contents uniquely identify a record within an indexed 
file. 

Printable Group 

A report group that contains at least one print line. 

Printable Item 

A data item, the extent and contents of which are specified by an 
elementary report entry. This elementary report entry contains a 
COLUMN NUMBER clause, a PICTURE clause, and a SOURCE, SUM, or 
VALUE clause. 

Procedure 

A paragraph or group of logically successive paragraphs, or a 
section or group of logically successive sections, within the 
Procedure Division. 

Procedure-Name 

A user-defined word that is used to name a paragraph or section 
in the Procedure Division. It consists of a paragraph-name 
(which may be qualified) or a section-name. 

Program-Name 

A user-defined word that identifies a COBOL source program. 

Pseudo-Text 

A sequence of character-strings and/or separators bounded by, but 
not including, pseudo-text delimiters. 

Pseudo-Text Delimiter 

Two contiguous equal sign (=) characters used to delimit 
pseudo-text. 

Punctuation Character 

A character that belongs to the following set: 

Character Meaning 

, comma 

; semicolon 

period 
" quotation mark 

( left parenthesis 

) right parenthesis 

space 
= equal sign 
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Qualified Data-Name 

An identifier that is composed of a data-name followed by one or 
more sets of either of the connectives OF and IN followed by a 
data-name qualifier. 

Qualifier 

1. A data-name that is used in a reference together with another 
data-name at a lower level in the same hierarchy. 

2. A section-name that is used in a reference together with a 
paragraph-name specified in that section. 

3. A library-name that is used in a reference together with a 
text-name associated with that library. 

Queue 

A logical collection of messages awaiting transmission or 
processing. 

Queue Name 

A symbolic name that indicates to the MCS the logical path by 
which a message or a portion of a completed message may be 
accessible in a queue. 

Random Access 

An access mode in which the program-specified value of a key data 
item identifies the logical record that is obtained from, deleted 
from, or placed into a relative or indexed file. 

Record 

(See Logical Record.) 

Record Area 

A storage area allocated for processing the record described in a 
record description entry in the File Section. 

Record Description 

(See Record Description Entry.) 

Record Description Entry 

The total set of data description entries associated with a 
particular record. 

Record Key 

A key, either the prime record key or an alternate record key, 
whose contents identify a record within an indexed file. 

Record-Name 

A user-defined word that names a record described in a record 
description entry in the Data Division. 
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Reference Format 

A format that provides a standard method for describing COBOL 
source programs. 

Relation 

(See Relational Operator.) 

Relation Character 

A character that belongs to the following set: 

Character Meaning 

> greater than 

< less than 

= equal to 

Relation Condition 

The proposition for which a truth value can be determined that 
the value of an arithmetic expression or data item has a specific 
relationship to the value of another arithmetic expression or 
data item. (See Relational Operator.) 

Relational Operator 

A reserved word, a relation character, a group of consecutive 
reserved words, or a group of consecutive reserved words and 
relation characters used in the construction of a relation 
condition. The permissible operators and their meanings are: 

Relational Operator Meaning 

IS [NOT] GREATER THAN 



IS [NOT] > 

IS [NOT] LESS THAN 

IS [NOT] < 

IS [NOT] EQUAL TO 

IS [NOT] = 



Greater than or not greater than 
Less than or not less than 
Equal to or not equal to 



Relative File 

A file with relative organization. 

Relative Key 

A key whose contents identify a logical record in a relative 
file. 

Relative Organization 

The permanent logical file structure in which each record is 
uniquely identified by an integer value grater than zero, which 
specifies the record's logical ordinal position in the file. 

Report Clause 

A clause in the Report Section of the Data Division that appears 
in a report description entry or a report group description 
entry. 
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Report Description Entry 

An entry in the Report Section of the Data Division that is 
composed of the level indicator RD followed by a report name, 
followed by a set of report clauses, as required. 

Report Pile 

An output file whose file description entry contains a REPORT 
clause. The contents of a report file consist of records that 
are written under control of the Report Writer Control System. 

Report Footing 

A report group that is presented only at the end of a report. 

Report Group 

In the Report Section of the Data Division, an 01 level-number 
entry and its subordinate entries. 

Report Group Description Entry 

An entry in the Report Section of the Data Division that is 

composed of the level-number 01, the optional data-name, a TYPE 

clause, and an optional set of report clauses. 

Report Heading 

A report group that is presented only at the beginning of a 
report. 

Report Line 

A division of a page representing one row of horizontal character 
positions. Each character position of a report line is aligned 
vertically beneath the corresponding character position of the 
report line above it. Report lines are numbered from 1, by 1, 
starting at the top of the page. 

Report-Name 

A user-defined -word that names a report described in a report 
description entry within the Report Section of the Data Division. 

Report Section 

The section of the Data Division that contains one or more report 
description entries and their associated report group description 
entries. 

Report Writer Control System (RWCS) 

An object-time control system provided by the implementor that 
constructs reports. 

Report Writer Logical Record 

A record that consists of the Report Writer print line and 
associated control information necessary for its selection and 
vertical positioning. 
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Reserved Word 

A COBOL word specified in the list of words that may be used in 
COBOL source programs, but that must not appear in the programs 
as user-defined words or system-names. 

Routine-Name 

A user-defined word that identifies a procedure written in a 
language other than COBOL., 

Run Unit 

A set of one or more object programs that function at object time 
as a unit to provide problem solutions. 

RWCS 

(See Report Writer Control System.) 

Section 

A set of zero, one, or more paragraphs or entries, called a 
section body, the first of which is preceded by a section header. 
Each section consists of the section header and the related 
section body. 

Section Header 

A combination of words followed by a period and a space that 
indicates the beginning of a section in the Environment, Data, 
and Procedure Division. 

In the Environment and Data Divisions, a section header is 
composed of reserved words followed by a period and a space. The 
permissible section headers are: 

In the Environment Division: 

CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 

In the Data Division: 

FILE SECTION. 
WORKING-STORAGE SECTION. 
LINKAGE SECTION. 
COMMUNICATION SECTION. 
REPORT SECTION. 

In the Procedure Division, a section header is composed of a 
section-name followed by the reserved word SECTION, followed by a 
segment-number (optional), followed by a period and a space. 

Section-Name 

A user-defined word that names a section in the Procedure 
Division. 



Segment-Number 

A user-defined word that classifies sections in the Procedure 
Division for purposes of segmentation. Segment-numbers may 
contain only the characters '0 1 , 'l 1 , ..., '9'. A segment-number 
may be expressed either as a 1- or 2-digit number. 
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Sentence 

A sequence of one or more statements, the last of which is 
terminated by a period followed by a space. 

Separator 

A punctuation character used to delimit character-strings. 

Sequential Access 

An access mode in which logical records are obtained from or 
placed into a file in a consecutive predecessor-to-successor 
logical record sequence determined by the order of records in the 
file. 

Sequential File 

A file with sequential organization. 

Sequential Organization 

The permanent logical file structure in which a record is 
identified by a predecessor-successor relationship established 
when the record is placed into the file. 

Sign Condition 

The proposition, for which a truth value can be determined, that 

the algebraic value of a data item or an arithmetic expression is 

either less than, greater than, or equal to zero. 

Simple Condition 

Any single condition chosen from the set: 

relation condition 
class condition 
condtion-name condition 
switch-status condition 
sign condition 
(simple-condition) 

Sort File 

A collection of records to be sorted by a SORT statement. The 
sort file is created and can be used by the sort function only. 

Sort-Merge File Description Entry 

An entry in the File Section of the Data Division that is 
composed of the level indicator SD, followed by a file-name, and 
then followed by a set of file clauses, as required. 

Source 

The symbolic identification of the originator of a transmission 
to a queue. 

SOURCE-COMPUTER 

The name of an Environment Division paragraph in which the 
computer environment, within which the source program is 
compiled, is described. 
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Source Item 

An identifier designated by a SOURCE clause that provides the 
value of a printable item. 

Source Program 

Although it is recognized that a source program may be 

represented by other forms and symbols, in this document it 
always refers to a syntactically correct set of COBOL statements 

beginning with an Identification Division and ending with the end 

of the Procedure Division. In contexts where there is no danger 

of ambiguity, the word 'program 1 alone may be used in place of 
the phrase 'source program.' 

Special Character 

A character that belongs to the following set: 

Character Meaning 

+ plus sign 

minus sign 

* asterisk 

/ stroke (virgule, slash) 

= equal sign 

$ currency sign 

, comma (decimal point) 

; semicolon 

period (decimal point) 

" quotation mark 

( left parenthesis 

) right parenthesis 

> greater than symbol 

< less than symbol 

Special-Character Word 

A reserved word that is an arithmetic operator or a relation 
character . 

SPECIAL-NAMES 

The name of an Environment Division paragraph in which 
implementor-names are related to user-specified mnemonic-names. 

Special Registers 

Compiler-generated storage areas whose primary use is to store 
information produced in conjunction with the user of specific 
COBOL features. 

Standard Data Format 

The concept used in describing the characteristics of data in a 
COBOL Data Division under which the characteristics or properties 
of the data are expressed in a form oriented to the appearance of 
the data on a printed page of infinite length and breadth, rather 
than a form oriented to the manner in which the data is stored 
internally in the computer, or on a particular external medium. 

Statement 

A syntactically valid combination of words and symbols written in 
the Procedure Division and beginning with a verb. 
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Sub-Queue 

A logical hierarchical division pf a queue, 

Subject of Entry 

An operand or reserved word that appears immediately following 
the level indicator or the level-number in a Data Division entry. 

Subprogram 

(See Called Program.) 

Subscript 

An integer whose value identifies a particular element in a 
table. 

Subscripted Data-Name 

An identifier that is composed of a data-name followed by one or 
more subscripts enclosed in parentheses. 

Sum Counter 

A signed numeric data item established by a SUM clause in the 
Report Section of the Data Division. The sum counter is used by 
the Report Writer Control System to contain the result of 
designated summing operations that take place during production 
of a report. 

Switch-Status Condition 

The proposition, for which a truth value qan be determined , that 
an implementor-def ined switch, capable of being set to an 'on 1 or 
'off status, has been set to a specific status, 

System-Name 

A COBOL word that is used to communicate with the operating 
environment. 

Table 

A set of logically consecutive items of data that are defined in 
the Data Division by means of the OCCURS clause. 

Table Element 

A data item that belongs to the set of repeated items comprising 
a table. 

Terminal 

The originator of a transmission to a queue, or the receiver of a 
transmission from a queue. 

Text-Name 

A user-defined word that identifies library text. 

Text-Word 

Any character-string or separator, except space, in a COBOL 
library or in pseudo-text. 
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Truth Value 

The representation of the result of the evaluation of a condition 
in terms of one of two values 

true 

false 



Unary Operator 

A plus (+) or a minus (-) sign that precedes a variable or a left 
parenthesis in an arithmetic expression, and that has the effect 
of multiplying the expression by +1 or -1, respectively. 

Unit 

A module of mass storage the dimensions of which are determined 
by each implementor. 

User-Defined Word 

A COBOL word that must be supplied by the user to satisfy the 
format of a clause or statement. 

Variable 

A data item whose value may be changed by execution of the object 
program. A variable used in an arithmetic expression must be a 
numeric elementary item. 

verb 

A word that expresses an action to be taken by a COBOL compiler 
or object program. 

Word 

A character-string of not more than 30 characters that forms a 
user-defined word, a system-name, or a reserved word. 

Working-Storage Section 

The section of the Data Division that describes working storage 
data items, which is composed either of noncontiguous items or of 
working storage records or of both. 

7 7-Level-Descript ion-En try 

A data description entry that describes a noncontiguous data item 
with the level-number 77. 



Glossary-26 



INDEX 



Abbreviated 

combined relation condition, 
5-16 
ACCEPT 

COBDDT command, 7-31 
ACCEPT statement, 5-20 
Access 

file organization, 8-23 
ACCESS MODE clause, 3-19 
Access strategies 

sequential file, 9-13 
ADD statement, 5-22 
ADVANCING clause 

WRITE statement, 5-117 
Advancing mode 

packing ISAM file, 7-13 
AFTER option 

WRITE statement, 5-117 
Alignment 

coding conventions, 13-12.1 
ALL literal 

figurative constant, 1-7 
ALL phrase 

INSPECT statement, 5-52 

UNSTRING statement, 5-105, 
5-110 
ALL PROCEDURES clause 

USE statement, 5-115 
ALLOWING OTHERS clause 

OPEN statement, 5-62, 9-6 
Alphabet-name IS clause, 3-7 
Alphabetic item definition, 4-44 
ALPHABETIC test 

class condition, 5-10 
Alphanumeric item definition, 

4-44 
Alphanumeric literal, 1-11 
Alphanumeric-Edited item 

definition, 4-44 
ALTER statement, 5-24 
Alternate 

numeric test, D-l 
ALTERNATE RECORD KEY clause, 3-21 

RMS indexed files, 1-1 
ANSI labeled tapes 

tape handling, F-8 
ANSI levels 

FIPS flagger, G-l 
ANY VERB clause, 5-62 
ANY VERB option 

RETAIN statement, 9-10 
Argument list entry 

36-bit storage, 12-4 
Arithmetic computations 

usage 

determination, 5-18 
Arithmetic expression, 5-7 
Arithmetic verbs 

options, 5-17 



ASCENDING clause 

MERGE statement, 5-56 

SORT statement, 5-87 
ASCII 

fixed-length 

file format, 8-4 

recording mode, 3-23, 8-1 

transportable tapes, F-9 

variable- length 
file format, 8-6 
ASCII collating sequence 

conversion to SIXBIT, C-3 
ASCII conversion 

from EBCDIC, C-5 
ASCII data type, 13-9 
ASCII mixed-mode binary 

file format, 8-20 
ASCII tape handling 

TOPS-20, F-10 
ASCII/SIXBIT collating sequence 

conversion to EBCDIC, C-l 
ASSIGN clause, 3-14 
Assignment 

report file 

Report Writer, 10-6 
AT END clause 

READ statement, 5-69 

SEARCH statement, 5-83 
Available tape drive 

tape handling, F-7 

BEFORE option 

WRITE statement, 5-117 
BINARY 

file format, 8-19 

recording mode, 3-23, 8-3 
Binary 

standard, 8-20 

transportable tape handling, 
F-ll 
BIS-compiler, 1-1 
BLANK WHEN ZERO clause, 4-33 
Block 

definition, 1-3 
BLOCK CONTAINS clause, 4-15 
Blocking data 

efficient data types, 13-11 

ISAM program, 7-18 
Braces 

symbology, 1-2 
Brackets 

symbology, 1-2 
BREAK 

COBDDT command, 7-31 
Buffer memory 

compute allocation, 11-12 
Buffer size 

indexed-sequential files, 11-12 
Buffer space, 11-11 
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BY keyword 

DIVIDE statement, 5-35 
BYTE MODE clause, 3-25 

CALL statement, 5-25 

COBOL-68/74 differences, A-7 

inter-program communication, 
11-4.1 

subprograms, 11-4 
Called subprogram 

inter-program communication, 
11-5 
Calling non-COBOL subprograms, 
12-1 

ENTER statement, 12-1 
Calling program 

inter-program communication, 
11-4.1 
CANCEL statement, 5-27 

COBOL-68/74 differences, A-7 

overlays, 11-13 
Card-type format 

source program format, 1-14 
CD entries, 4-5 
CD-name 

debugging, H-3 
CHANNEL 

SPECIAL-NAMES, 3-7 
Character chart 

PICTURE string, 4-55 
Character collating sequences 

with conversion tables, C-l 
Character set 

COBOL-74, 1-4 
Character-string 

PICTURE clause, 4-43 
Characters 

arithmetic expressions, 1-5 

conditional IF, 1-5 

punctuation, 1-5 

special editing, 1-5 
CHARACTERS option 

BLOCK CONTAINS, 4-15 
CHARACTERS phrase 

INSPECT statement, 5-51 
Checking 

indexed-sequential file, 7-17 
CHECKPOINT OUTPUT option, 3-18 
Class condition 

ALPHABETIC test, 5-10 

conditional expression, 5-9 

format, 5-9 

NUMERIC test, 5-10 

restrictions, 5-9 
Clause 

ACCESS MODE, 3-19 

ADVANCING, 5-117 

ALL PROCEDURES, 5-115 

ALLOWING OTHERS, 5-62 

simultaneous update, 9-6 

alphabet-name IS, 3-7 

ALTERNATE RECORD KEY, 3-21, 1-1 

ANY VERB, 5-62 



Clause (Cont.) 

ASCENDING, 5-56, 5-87 

ASSIGN, 3-14 

AT END, 5-69, 5-83 

BLANK WHEN ZERO, 4-33 

BLOCK CONTAINS, 4-15 

BYTE MODE, 3-25 

CODE, 4-74 

CODE-SET, 3-7, 4-17 

COLUMN NUMBER, 4-81 

CONTROL, 4-75 

CURRENCY SIGN, 3-8 

DATA RECORD, 4-18 

DATE-WRITTEN, 4-27 

DECIMAL-POINT IS COMMA, 3-8 

DENSITY, 3-25 

DESCENDING, 5-56, 5-87 

DISPLAY, 3-5 

DOWN BY, 5-85 

ELSE, 5-47 

FD, 4-13 

FD file-name, 4-19 

File Description, 4-13 

FILE STATUS, 3-27 

FOR, 5-75 

FROM, 5-98 

GROUP INDICATE, 4-82 

INVALID KEY, 5-33, 5-69, 5-80 

JUSTIFIED, 4-37 

KEY, 5-83 

KEY IS data-name, 5-71 

LABEL RECORD, 4-20 

LINAGE, 4-22 

LINE NUMBER, 4-83 

literal IS mnemonic-name, 3-8 

MEMORY SIZE, 3-4 

MULTIPLE FILE, 3-38 

NEXT GROUP, 4-85 

NEXT RECORD, 5-74 

OCCURS, 4-10, 4-40 

ORGANIZATION, 3-17, 1-1 

PAGE LIMIT, 4-76 

PARITY, 3-25 

PICTURE, 4-42 

POSITIONING, 5-118 

PRINTING, 5-100 

PROGRAM COLLATING SEQUENCE, 3-5 

RECORD CONTAINS, 4-24 

RECORD KEY, 3-20 

RECORDING MODE, 3-23 

RECORDS, 4-15 

REDEFINES, 4-56 

RELATIVE KEY, 3-22 

REMAINDER, 5-36 

RENAMES 

level-66, 4-58 
REPORT, 4-25 
RERUN, 3-37 
RESERVE, 3-16 
RESET, 4-86 
RMS, 3-18 
SAME AREA, 3-38 
SD file-name, 4-26 
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Clause (Cont.) 

SEGMENT-LIMIT, 3-5 

SELECT, 3-13, 1-2 

SIGN, 4-60 

SOURCE, 4-87 

SUM, 4-88 

SYNCHRONIZED, 4-62 

TYPE, 4-88.1 

UNAVAILABLE, 5-63 

UNTIL, 5-67 

UP BY, 5-85 

USAGE, 4-64 

USER-NUMBER, 4-27 

USING, 5-1, 5-25, 5-38 

VALUE, 4-70 

VALUE OP IDENTIFICATION, 4-27 

WITH DEBUGGING MODE, 3-3 

WITH NO ADVANCING, 5-34 
Clause format 

ENVIRONMENT DIVISION, 3-2 
Clause WITH DUPLICATES, 1-1 
CLEAR 

COBDDT command, 7-32 
CLOSE options 

with file types, 5-31 
CLOSE statement, 5-28 

Report Writer, 10-19 
COBDDT 

optimizing tool, 13-6 

utility program, 7-1 
COBDDT program 

CPU column, 13-7 

debugging programs, 7-29 

ELAPSED column, 13-8 

ENTRIES column, 13-7 

histogram listing, 7-41 

histogram table, 7-39 

histograms, 7-39 

loading and starting, 7-29 

OVERHEAD entry, 13-8 

starting the histogram, 7-40 

stopping the histogram, 7-40 

using histogram, 7-43 
COBDDT program command 

ACCEPT, 7-31 

BREAK, 7-31 

CLEAR, 7-32 

DDT, 7-32 

DISPLAY, 7-33 

GO, 7-33 

LOCATE, 7-34 

MODULE, 7-34 

NEXT, 7-34 

OVERLAY, 7-35 

PROCEED, 7-35 

SHOW SYMBOLS, 7-36 

STEP, 7-36 

STOP, 7-37 

TRACE, 7-37 

UNPROTECT, 7-38 

WHERE, 7-38 
COBDDT program commands, 7-30 



COBOL 

language elements, 1-3 
program structure, 1-3 
COBOL keyword 

ENTER statement, 5-37 
COBOL labels 

tape handling, F-l 
COBOL-68 

differences 

COBOL-74, A-l 
COBOL-74 

arithmetic expression 

characters, 1-5 
calling non-COBOL subprograms, 

12-1 
character set, 1-4 
COBOL-68 differences, A-l 
compiler command string, 6-1 
compiling and loading, 6-1 
conditional IF characters, 1-5 
COPY statement, 1-19 
DATA DIVISION, 4-1 
data types, 13-8 
DEBUG module 

use, H-l 
differences 

CALL statement, A-7 

CANCEL statement, A-7 

COPY statement, A-8 

indexed files, A-6 

PERFORM statement, A-7 

relative files, A-6 

segmentation, A-7 
documentation 

program technique, 13-5 
ENVIRONMENT DIVISION, 3-1 
IDENTIFICATION DIVISION, 2-1 
improving performance, 13-1 
introduction, 1-1 
library facility, 1-19 
literals, 1-10 
loading, 6-4 
overlay programs, 11-8 
PROCEDURE DIVISION, 5-1 
program optimization, 13-2 
program segments, 11-1 
programming techniques, 13-2 
punctuation characters, 1-5 
Report Writer, 10-1 
reserved words, 1-5, B-l 
RMS indexed files, 1-3 
RMS program example, 1-8 
running, 6-4 
separators, 1-12 
source program format, 1-13 
special editing characters, 1-5 
standards, 13-2 
switches 

compiler, 6-3 
symbology, 1-1 
symbols, 1-1 
terms, 1-1, 1-3 
utility programs, 7-1 
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COBOL-74 (Cont.) 

word, 1-5 
Code 

BIS, 1-1 
CODE clause, 4-74 

Report Writer, 10-8 
CODE-SET clause, 3-7, 4-17 
Codes 

FILE STATUS clause, 3-28 
Coding conventions 

alignment, 13-12.1 

data movement, 13-14 

efficient, 13-12.1 

incrementing counters, 13-13 

INSPECT statement, 13-14 

PERFORM statement, 13-13 

statement ordering, 13-15 

subscript usage, 13-12.1 
Collating sequence 

SORT statement, 5-88 
COLLATING SEQUENCE phrase, 5-88 
Collating sequences 

character, C-l 
COLUMN clause 

Report Writer, 10-10, 10-12 
COLUMN NUMBER clause, 4-81 
Combined condition, 5-15 
Comma separator, 1-12 
Command 

DEFINE 

translation, E-l 

indirect 

ISAM program, 7-19 

MOUNT, F-7 
Command string 

compiler, 6-1 
Command TRANS L, E-l 
Command usage 

LIBARY program, 7-27 
Commands 

COBDDT program, 7-30 

LIBARY program, 7-25 

LIBARY-directing, 7-26 
Comment lines 

program format, 1-14 
Communication 

inter-program, 11-4 
COMMUNICATION SECTION 

DATA DIVISION, 4-5 
Communication Section 

definition, 4-1 
Compiler 

format 

COBOL-74, 6-1 
Compound-conditional expression 

order of evaluation, 5-14 
Computational data type, 13-10 
COMPUTATIONAL format 

USAGE clause, 4-65 
C0MPUTATI0NAL-1 format 

USAGE clause, 4-65 
C0MPUTATI0NAL-3 format 

USAGE clause, 4-66 



Computations 

arithmetic 
usage, 5-18 
COMPUTE statement, 5-32 
Condition 

class, 5-9 

NOT RETAINED 

simultaneous update, 9-12 

ON OVERFLOW 

CALL statement, 5-26 
ENTER statement, 5-37 

WHEN, 5-83 
Condition types, 5-15 
Condition-name 

level-88 

entry, 4-34 
Condition-name condition 

conditional expression, 5-10 

format, 5-10 
Conditional expression 

abbreviated combined relation 
condition, 5-16 

combined conditions, 5-15 

evaluation, 5-11 

format, 5-11 

negated combined condition, 
5-15 

order of evaluation, 5-13 

relation condition, 5-7 
Conditional expressions 

condition-name condition, 5-10 

logical operators, 5-11 

sign condition, 5-11 
Conditions 

conditional expression 
combinations, 5-15 
CONFIGURATION SECTION 

ENVIRONMENT DIVISION, 3-2 
Connectives 

reserved words, 1-6 
CONSOLE 

reserved word, 3-6 
Continuation area 

characters, 1-15 

program format, 1-14 
CONTROL clause, 4-75 

Report Writer, 10-8 
CONTROL FOOTING entry 

TYPE clause, 4-88.2 
CONTROL HEADING entry 

TYPE clause, 4-88.1 
CONTROL print group, 4-76 
Conversion to ASCII 

EBCDIC 

collating sequence, C-5 
Conversion to EBCDIC 

ASCII/SIXBIT 

collating sequence, C-l 
Conversion to SIXBIT 

ASCII 

collating sequence, C-3 
COPY statement 

COBOL-68/74 differences, A-8 
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COPY statement (Cont.) 
definition, 1-19 

CORRESPONDING option 
ADD statement, 5-23 
MOVE statement, 5-57 
PROCEDURE DIVISION, 5-18 
SUBTRACT statement, 5-99 

Count storage items 

UNSTRING statement, 5-106 

Counter 

efficient data types, 13-11 

Counters 

incrementing 

coding conventions, 13-13 

CPU column 
COBDDT 

optimizing, 13-7 

CURRENCY SIGN clause, 3-8 



D format 

transportable tape handling, 
F-9 
Data description 

entry, 4-31 
DATA DIVISION 

COMMUNICATION SECTION, 4-5 

FILE SECTION, 4-2 

LINKAGE SECTION, 4-5 

qualification, 4-9 

REPORT SECTION, 4-6 

SCHEMA SECTION, 4-4 

space restrictions, 13-12 

structure, 1-4 

WORKING-STORAGE SECTION, 4-5 
DATA DIVISION clauses, 4-12 
Data file 

characteristics, 8-27 

structure 
ISAM, 8-28 
Data item 

PAGE-COUNTER, 10-13 
Data movement 

coding conventions, 13-14 
DATA RECORD clause, 4-18 

SD file-name clause, 4-26 
Data types, 4-1 

ASCII, 13-9 

blocking data, 13-11 

computational, 13-10 

counter, 13-11 

DISPLAY, 13-8 

EBCDIC, 13-8 

efficiency, 13-11 

file storage, 13-11 

indexes, 13-11 

SIXBIT, 13-10 

subscripts, 13-11 
Data-name entry, 4-36 
DATABASE-KEY format 

USAGE clause, 4-69 
DATE 

special register, 1-9 



DATE option 

ACCEPT statement, 5-20 
DATE-COMPILED paragraph, 2-2 
DATE-WRITTEN clause, 4-27 
DAY 

special register, 1-8 
DAY option 

ACCEPT statement, 5-20 
DDT 

COBDDT command, 7-32 
Debug lines, 1-15 
Debug module 

CD-name 

debugging, H-3 

COBOL-74 
use, H-l 

DEBUG-CONTENTS, H-2 

DEBUG-ITEM data, H-5 

DEBUG-LINE contents, H-5 

DEBUG-NAME contents, H-5 

debugging on identifier, H-4 

debugging section execution, 
H-3 

example, H-7 

example methods, H-9 

features, H-l 

file-name debugging, H-4 

loading programs, H-7 

procedure-name debugging, H-4 

special register, H-l 

USE FOR DEBUGGING 
statement, H-3 
DEBUG-CONTENTS 

debug module, H-2 

format, H-2 
DEBUG-ITEM 

format, H-l 

special register 
debug module, H-l 
DEBUG-ITEM data, H-5 
DEBUG-ITEM register 

USE statement, 5-115 
DEBUG-LINE 

contents, H-5 
DEBUG-NAME 

contents, H-5 
Debugging programs 

COBDDT, 7-29 
Debugging section 

execution, H-3 
DECIMAL-POINT IS COMMA clause, 

3-8 
DECLARATIVES 

format, 5-114 

USE statement, 5-113 
DECLARATIVES header, 5-1 
DECLARATIVES SECTION 

Report Writer, 10-16 
Defaults 

LIBARY program command string, 
7-23 
DEFERRED OUTPUT option, 3-18 
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DEFINE command 

directory translation, E-l 

Definition 

alphabetic item, 4-44 
alphanumeric item, 4-44 
alphanumeric-edited item, 4-44 
identifier, 5-19 
numeric item, 4-44 
numeric-edited item, 4-44 

DELETE 

LIBARY command, 7-26 

DELETE option 

CLOSE statement, 5-28 

DELETE statement, 5-33 

DELIMITED BY phrase 

STRING statement, 5-93 
UNSTRING statement, 5-109 

DELIMITED BY SIZE phrase 
STRING statement, 5-94 

DELIMITER IN phrase 

UNSTRING statement, 5-106 

Delimiter items 

STRING statement, 5-93 
UNSTRING statement, 5-105 

Delimiter storage items 
UNSTRING statement, 5-106 

DENSITY clause, 3-25 

DEPENDING ON option 
GO TO statement, 5-46 

DEPENDING option 

OCCURS clause, 4-40 

DESCENDING clause 

MERGE statement, 5-56 
SORT statement, 5-87 

Description 

ACCEPT statement, 5-20 
ACCESS MODE clause, 3-19 
ADD statement, 5-22 
ALTER statement, 5-24 
ALTERNATE RECORD KEY, 3-21 
BLANK WHEN ZERO clause, 4-33 
BLOCK CONTAINS clause, 4-15 
CALL statement, 5-25 
CANCEL statement, 5-27 
clauses 

DATA DIVISION, 4-12 
CLOSE statement, 5-28 
CODE clause, 4-74 
CODE-SET clause, 4-17 
COLUMN NUMBER clause, 4-81 
COMMUNICATION SECTION, 4-5 
COMPUTE statement, 5-32 
condition-name entry, 4-34 
CONFIGURATION SECTION, 3-2 
CONTROL clause, 4-75 
COPY statement, 1-19 
data description entry, 4-32 
DATA DIVISION, 4-1 
DATA RECORD clause, 4-18 
data-name entry, 4-36 
DATE-WRITTEN clause, 4-27 
DELETE statement, 5-33 
DISPLAY statement, 5-34 



Description (Cont.) 

DIVIDE statement, 5-35 

ENTER statement, 5-37 

ENTRY statement, 5-38 

ENVIRONMENT DIVISION, 3-1 

EXIT PROGRAM statement, 5-40 

EXIT statement, 5-39 

FD clause, 4-14 

FD file-name clause, 4-19 

File Description clause, 4-14 

FILE SECTION, 4-2 

FILE STATUS clause, 3-27 

FILE-CONTROL paragraph, 3-13 

FILLER word, 4-36 

FREE statement, 5-41 

GENERATE statement, 5-44 

GO TO statement, 5-46 

GROUP INDICATE clause, 4-82 

I-O-CONTROL paragraph, 3-37 

IDENTIFICATION DIVISION, 2-1 

IF statement, 5-47 

indexing, 4-10 

INITIATE statement, 5-49 

INPUT-OUTPUT SECTION, 3-9 

INSPECT statement, 5-50 

JUSTIFIED clause, 4-37 

LABEL RECORD clause, 4-20 

level-66 

RENAMES clause, 4-58 
level-88 entry, 4-34 
level-number entry, 4-39 
LINAGE clause, 4-22 
LINE NUMBER clause, 4-83 
LINKAGE SECTION, 4-5 
MERGE statement, 5-55 
MOVE statement, 5-57 
MULTIPLY statement, 5-59 
NEXT GROUP clause, 4-85 
OBJECT-COMPUTER paragraph, 3-4 
OCCURS clause, 4-40 
OPEN statement, 5-61 
ORGANIZATION clause, 3-17 
PAGE LIMIT clause, 4-76 
PERFORM statement, 5-66 
PICTURE clause, 4-42 
PROCEDURE DIVISION, 5-1 
qualification, 4-9 
READ statement, 5-69 
RECORD CONTAINS clause, 4-24 
RECORD KEY clause, 3-20 
RECORDING MODE clause, 3-23 
REDEFINES clause, 4-56 
RELATIVE KEY clause, 3-22 
RELEASE statement, 5-72 
RENAMES clause, 4-58 
REPORT clause, 4-25 
report description entry, 4-72 
report group description entry, 

4-80 
REPORT SECTION, 4-6 
RESERVE clause, 3-16 
RESET clause, 4-86 
RETAIN statement, 5-74 
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Description (Cont.) 

RETURN statement, 5-79 

REWRITE statement, 5-80 

SCHEMA SECTION, 4-4 

SD file-name clause, 4-26 

SEARCH, 5-82 

SELECT statement, 3-14 

SET statement, 5-85 

SIGN clause, 4-60 

SORT statement, 5-86 

SOURCE clause, 4-87 

SOURCE-COMPUTER paragraph, 3-3 

SPECIAL-NAMES paragraph, 3-6 

START statement, 5-89 

STOP statement, 5-91 

STRING statement, 5-92 

subscripting, 4-10 

SUBTRACT, 5-98 

SUM clause, 4-88 

SUPPRESS statement, 5-100 

SYNCHRONIZED clause, 4-62 

TERMINATE statement, 5-101 

TRACE statement, 5-102 

TYPE clause, 4-88.1 

UNSTRING statement, 5-104 

USAGE clause, 4-64 

USE statement, 5-113 

USER-NUMBER clause, 4-27 

VALUE clause, 4-70 

VALUE OF IDENTIFICATION clause, 
4-27 

WORKING-STORAGE SECTION, 4-5 

WRITE statement, 5-116 
Descriptions 

record 

FILE SECTION, 4-2 
Destination counter 

UNSTRING statement, 5-107 
Destination item 

STRING statement, 5-94 
Destination items 

UNSTRING statement, 5-104 
DETAIL entry 

TYPE clause, 4-88.1 
Device-name 

logical, 3-15 

physical, 3-14 
Direct subscripting/indexing, 
4-11 

qualified, 4-12 
Directory 

translation, E-l 
Directory translation 

TRANSL command, E-l 
DISPLAY 

COBDDT command, 7-33 
DISPLAY clause, 3-5 
DISPLAY data types, 13-8 
DISPLAY format 

USAGE clause, 4-67 
DISPLAY statement, 5-34 

figurative constants, 5-34 



DISPLAY-6 format 

USAGE clause, 4-67 
DISPLAY-7 format 

USAGE clause, 4-67 
DISPLAY-9 format 

USAGE clause, 4-68 
DIVIDE statement, 5-35 

operands, 5-36 
Double-precision 

fixed-point, 5-18 
DOWN BY clause 

SET statement, 5-85 
Dynamic access 

relative files, 8-25 
Dynamic allocation space, 11-11 



EBCDIC 

file format, 8-12 

fixed-length 

file format, 8-13 

recording mode, 8-2 

variable-length 
file format, 8-14 
EBCDIC collating sequence 

conversion to ASCII, C-5 
EBCDIC data type, 13-8 
EBCDIC labels 

tape handling, F-ll 
EBCDIC mixed-mode binary 

file format, 8-22 
EBCDIC tape handling 

TOPS-10, F-10 

TOPS-20, F-10 
Editing 

fixed insertion, 4-51 

floating insertion, 4-51, 4-52 

simple insertion, 4-51 

zero suppression, 4-53 
Editing types 

PICTURE clause, 4-50 
ELAPSED column 

COBDDT 

optimizing, 13-8 
Elementary item 

PICTURE string, 4-45 
Elementary items 

FILE SECTION, 4-3 
Ellipsis 

symbology, 1-2 
ELSE clause 

IF statement, 5-47 
Embrace 

deadly, 5-75 
END 

LIBARY command, 7-27 
END OF UNIT option, 3-37 
END-OF-PAGE phrase 

WRITE statement, 5-118 
ENTER statement, 5-37 

calling non-COBOL subprograms, 
12-1 

entry point, 12-1 
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ENTRIES column 

COB DDT 

optimizing, 13-7 
Entry 

condition-name (level-88), 4-34 

data description, 4-31 

data-name, 4-36 

level-number, 4-39 

report description 
RD, 4-72 

report group description, 4-78 
ENTRY statement, 5-38 

inter-program communication, 
11-5 
ENVIRONMENT DIVISION 

clause format, 3-2 

CONFIGURATION SECTION, 3-2 

INPUT-OUTPUT SECTION, 3-9 

structure, 1-4 
EOP phrase 

WRITE statement, 5-118 
Error codes 

monitor 

FILE STATUS clause, 3-34 
Error message 

FIPS flagger, G-2 
Error number 

FILE STATUS clause, 3-28 
Error numbers 

RMS, 1-4 
Evaluation order 

compound-conditional expression, 
5-14 

conditional expression, 5-13 
Evaluation rules 

conditional expression, 5-11 

PROCEDURE DIVISION, 5-6 
EVERY RECORD phrase 

FREE statement, 5-42, 9-12 
Execution 

sequence of, 5-4 

STRING statement, 5-94 

UNSTRING statement, 5-107 
EXIT PROGRAM statement, 5-40 

inter-program communication, 
11-5 
EXIT statement, 5-39 
Explicit record release 

simultaneous update, 9-1 
Explicit usage 

index, 4-10 
Expressions 

arithmetic, 5-6 

conditional, 5-7 
EXTEND phrase 

OPEN statement, 5-63 
EXTRACT 

LIBARY command, 7-26 



recording mode, 3-23 



F format 

transportable tape handling, 
F-9 
FD 

report file 

Report Writer, 10-7 
FD entry 

RMS indexed files, 1-2 
FD file-name clause, 4-19 
Figurative constant 

ALL literal, 1-7 

HIGH-VALUE, 1-7 

HIGH-VALUES, 1-7 

LOW-VALUE, 1-7 

LOW-VALUES, 1-7 

QUOTE, 1-7 

QUOTES, 1-7 

SPACE, 1-7 

SPACES, 1-7 

ZERO, 1-7 

ZEROES, 1-7 

ZEROS, 1-7 
Figurative constants 

reserved, 1-6 
File 

building 

indexed-sequential, 7-4 

data, 8-27 

index, 8-28 

indexed-sequential 
maintaining, 7-9 
packing, 7-12 
File Description (FD) clause, 

4-13 
File format 

ASCII 

mixed-mode binary, 8-20 

BINARY, 8-19 

EBCDIC, 8-12 

mixed-mode binary, 8-22 

fixed-length ASCII, 8-4 

fixed-length EBCDIC, 8-13 
blocked, 8-16 

fixed-length SIXBIT, 8-8.1 

SIXBIT 

mixed-mode binary, 8-21 

source library, 7-22 

standard binary, 8-20 

variable-length ASCII, 8-6 

variable-length EBCDIC, 8-14 
blocked, 8-17 

variable-length SIXBIT, 8-10 
File formats, 8-1, 8-3 
File maintenance 

ISAM program, 7-2 
File organization 

access, 8-23 
FILE SECTION 

DATA DIVISION, 4-2 

level numbers, 4-3 
File Section 

definition, 4-1 
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File status bits 

monitor 

FILE STATUS clause, 3-33 
FILE STATUS clause, 3-27 

error codes, 3-34 

file status bits, 3-33 
File storage 

efficient data types, 13-11 
File structure 

ISAM, 8-28 
index, 8-30 
File types 

with CLOSE options, 5-31 
FILE-CONTROL paragraph, 3-10 
File-name 

debugging, H-4 
Files 

indexed-sequential 

characteristics, 8-27 

maximum number, 4-14 

relative 

characteristics, 8-24 

sequential 

characteristics, 8-23 
FILLER word, 4-36 
FINAL entry 

TYPE clause, 4-88.2 
FIPS 

ANSI levels, G-l 

error messages, G-2 

federal COBOL standard, G-l 

FPM definition, G-l 

use, G-2 
FIPS flagger 

compatibility checker, G-l 
FIRST DETAIL clause 

PAGE LIMIT clause, 4-76 
FIRST phrase 

INSPECT statement, 5-52 
Fixed-length ASCII 

file format, 8-4 
Fixed-length EBCDIC 

file format, 8-13 
Fixed-length SIXBIT 

file format, 8-8.1 
Floating-point arithmetic 

double-precision, 5-18 
FOOTING clause 

PAGE LIMIT clause, 4-76 
FOOTING phrase 

LINAGE clause, 4-22 
FOOTING report group, 4-76 
FOR clause 

RETAIN statement, 5-75 
FOR keyword 

OPEN statement, 5-62 
FOR REMOVAL option 

CLOSE statement, 5-28 
Form positioning, 5-117 
Format 

COMP, 4-65 

COMP-1, 4-65 

COMP-3, 4-66 



Format (Cont.) 

DATABASE-KEY, 4-69 

DISPLAY, 4-67 

DISPLAY-6, 4-67 

DISPLAY-7, 4-67 

DISPLAY-9, 4-68 

INDEX, 4-68 
Formation rules 

PROCEDURE DIVISION, 5-6 
Formats 

file, 8-1, 8-3 
FORTRAN keyword 

ENTER statement, 5-37 
FORTRAN subprograms 

calling, 12-1 
FPM 

FIPS flagger, G-l 
Free memory 

/SPACE switch, 11-11 
FREE statement, 5-41 

simultaneous update, 9-11 
FROM option 

ACCEPT statement, 5-20 

RELEASE statement, 5-72 

REWRITE statement, 5-80 

WRITE statement, 5-119 
FROM word 

SUBTRACT statement, 5-98 

GENERATE statement, 5-44 

Report Writer, 10-18 
GIVING option 

ADD statement, 5-23 

MERGE statement, 5-56 

SORT statement, 5-87 

SUBTRACT statement, 5-98 
GO 

COBDDT command, 7-33 
GO TO statement, 5-46 
GROUP INDICATE clause, 4-82 
Group items 

FILE SECTION, 4-3 
Group mode commands 

LIBARY program, 7-25 

Handling errors 

RMS indexed files, 1-4 
HEADING clause 

PAGE LIMIT clause, 4-76 
HIGH-VALUE 

figurative constant, 1-7 
HIGH-VALUES 

figurative constant, 1-7 
Histogram 

initializing the table, 7-39 

obtaining a listing, 7-41 

starting, 7-40 

stopping, 7-40 

using, 7-43 
Histograms 

program behavior 
obtaining, 7-39 
Horizontal tab separator, 1-12 
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1-0 option 

OPEN statement, 5-62 
I-O-CONTROL paragraph, 3-37 
Identification area 

source program format, 1-15 
IDENTIFICATION DIVISION 

structure, 1-4 
Identifier 

debugging, H-4 
Identifier definition 

PROCEDURE DIVISION, 5-19 
IF statement, 5-47 
Implicit record release 

simultaneous update, 9-1 
Implicit usage 

index, 4-10 
Index file 

characteristics, 8-28 

structure 
ISAM, 8-30 
INDEX format 

USAGE clause, 4-68 
Index-sequential file 

maintaining a, 7-9 
Index-sequential files 

FREE statement, 5-43 
Indexed files 

COBOL-68/74 differences, A-6 

RMS 

using, 1-1 
INDEXED option 

OCCURS clause, 4-41 
Indexed-sequential 

ISAM program, 7-2 
Indexed-sequential file 

building a, 7-4 

building example, 7-8 

checking, 7-17 

locating a record, 8-29 

packing a, 7-12 

packing example, 7-13 

renaming, 7-16 

renaming example, 7-17 

using, 7-20 
Indexed-sequential files, 8-27 

accessing 

simultaneous update, 9-18 

buffer size, 11-12 

RETAIN statement, 5-78 
Indexes 

efficient data types, 13-11 
Indexing 

DATA DIVISION, 4-10 

relative/direct, 4-11 
Indexing forms, 4-11 
Indirect commands 

ISAM program, 7-19 
INITIATE statement, 5-49 

Report Writer, 10-17 
Input 

optional, 5-61 
INPUT option 

USE statement, 5-114 



INPUT PROCEDURE phrase 

MERGE statement, 5-56 
INPUT-OUTPUT option 

USE statement, 5-114 
INPUT-OUTPUT SECTION 

ENVIRONMENT DIVISION, 3-9 
INSERT 

LIBARY command, 7-26 
INSPECT statement, 5-50 

coding conventions, 13-14 
Inter-program communication 

CALL statement, 11-4.1 

called subprogram, 11-5 

calling program, 11-4.1 

ENTRY statement, 11-5 

EXIT PROGRAM statement, 11-5 

PROCEDURE DIVISION statement, 
11-5 

STOP RUN statement, 11-6 

subprograms, 11-4 

USING clause, 11-5 
INTO keyword 

DIVIDE statement, 5-35 
INTO option 

READ statement, 5-71 
INTO phrase 

RETURN statement, 5-79 
INVALID KEY clause 

DELETE statement, 5-33 

READ statement, 5-69 

REWRITE statement, 5-80 
INVALID KEY phrase 

START statement, 5-89 

WRITE statement, 5-119 
ISAM 

utility program, 7-1 
ISAM program 

blocking data, 7-18 

file environment, 7-3 

file maintenance, 7-2 

function switches, 7-2 

functions, 7-2 

indirect commands, 7-19 

key descriptor, 7-6 

tape labels, 7-14 
Item 

definition, 1-3 

FILLER, 4-36 
Items 

elementary, 4-3 

group, 4-3 

JUSTIFIED clause, 4-37 



KEY clause 

SEARCH statement, 5-83 
Key descriptor 

ISAM program, 7-6 
KEY IS data-name clause 

READ statement, 5-71 
KEY phrase 

RETAIN statement, 5-75 
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KEY word 

MERGE statement, 5-55 
Key word 

OPTIONAL, 3-14 
Key words 

reserved, 1-6 
Keyword 

BY, 5-35 

COBOL, 5-37 

FOR, 5-62 

FORTRAN, 5-37 

INTO, 5-35 

MACRO, 5-37 



LABEL RECORD clause, 4-20 
Label type 

tape handling, F-l 
Labeled tapes 

converting to unlabeled tapes, 
F-6 

tape handling, F-8 
Labels 

COBOL 

tape handling, F-l 

system 

tape handling, F-l 
LAST DETAIL clause 

PAGE LIMIT clause, 4-76 
LEADING phrase 

INSPECT statement, 5-52 

SIGN clause, 4-61 
LEFT option 

JUSTIFIED clause, 4-37 

SYNCHRONIZED clause, 4-62 
Level numbers 

FILE SECTION, 4-3 
Level-66 

RENAMES clause, 4-58 
Level-77 entry, 4-39 
Level-number entry, 4-39 
LIBARY 

utility program, 7-1 
LIBARY program 

command string defaults, 7-23 

command usage, 7-27 

commands, 7-25 
group mode, 7-25 

invoking, 7-22 

running, 7-25 

source file format, 7-22 

source library maintenance, 
7-22 

switches, 7-24 
LIBARY program command 

DELETE, 7-26 

END, 7-27 

EXTRACT, 7-26 

INSERT, 7-26 

REPLACE, 7-26 

RESTART, 7-27 
Library facility 

COPY statement, 1-19 



Library maintenance 

LIBARY program, 7-22 
LINAGE clause, 4-22 

LINAGE-COUNTER, 4-23 
LINAGE-COUNTER 

LINAGE clause, 4-23 

special register, 1-9 
LINE clause 

Report Writer, 10-10 
LINE NUMBER clause, 4-83 

NEXT PAGE option, 4-84 

PLUS option, 4-83 
Line numbers, 1-15 
LINE-COUNTER 

INITIATE statement, 5-49 

RD entry, 4-72 
LINES AT TOP/BOTTOM 

LINAGE clause, 4-22 
LINK switch 

/NOSEARCH, 11-6 

/NOSYSLIB, 11-7 

/NOUSERLIB, 11-7 

/SEARCH, 11-6 

/SPACE, 11-11 

/SYSLIB, 11-7 

/USERLIB, 11-7 
LINKAGE SECTION 

DATA DIVISION, 4-5 
Linkage Section 

definition, 4-1 
Literal IS mnemonic-name clause, 

3-8 
Literal option 

STOP statement, 5-91 
Literals 

alphanumeric, 1-11 

defined, 1-10 

numeric, 1-10 
Loading 

COBDDT program, 7-29 
Loading programs 

with debug module, H-7 
LOCATE 

COBDDT command, 7-34 
Logical device-names, 3-15 
Logical names 

defining 

TOPS-20, E-l 
Logical operator 

AND, 5-11 

NOT, 5-11 

OR, 5-11 
Logical operators 

conditional expression 
combinations, 5-15 

conditional expressions, 5-11 
LOW-VALUE 

figurative constant, 1-7 
LOW-VALUES 

figurative constant, 1-7 

MACRO keyword 

ENTER statement, 5-37 
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MACRO subprograms 

argument list descriptors, 12-4 

calling, 12-3 
Magtapes 

standard label for, 4-21 
Maintaining 

ignoring errors, 7-13 

indexed-sequential file, 7-9 
MEMORY SIZE clause, 3-4 
MERGE statement, 5-55 
MESSAGE COUNT 

ACCEPT statement, 5-21 
Mixed-mode binary 

file format 
ASCII, 8-20 
EBCDIC, 8-22 
SIXBIT, 8-21 
Modes 

recording, 8-1 
MODULE 

COBDDT command, 7-34 
MOUNT command 

tape handling, F-7 
MOVE statement, 5-57 
MULTI-REEL storage media, 5-29 
Multi-reel volume set 

tape handling, F-7 
Multi-volume tapes 

tape handling, F-5 
MULTIPLE FILE clause, 3-38 
MULTIPLY statement, 5-59 



Negated combined condition, 5-15 
NEGATIVE test 

sign condition, 5-11 
NEXT 

COBDDT command, 7-34 
NEXT GROUP clause, 4-85 

NEXT PAGE option, 4-85 

PLUS option, 4-85 

Report Writer, 10-9 
NEXT PAGE option 

LINE NUMBER clause, 4-84 

NEXT GROUP clause, 4-85 
NEXT phrase 

READ statement, 5-70 
NEXT RECORD clause 

RETAIN statement, 5-74 
NEXT SENTENCE phrase 

IF statement, 5-47 
NO REWIND option 

CLOSE statement, 5-28 

OPEN statement, 5-61 
Non-COBOL subprogram 

subprograms, 11-3 
NON-REEL storage media, 5-28 
Nonnumeric 

relation condition comparison, 
5-8 
Nonresident segments, 11-2 
NOT RETAINED condition 

FREE statement, 9-12 



NOT RETAINED phrase 

FREE statement, 5-42 
Numeric 

relation condition comparison, 
5-8 
Numeric item definition, 4-44 
Numeric literal, 1-10 
NUMERIC test 

class condition, 5-10 
Numeric test 

alternate, D-l 
Numeric-edited item definition, 
4-44 

Object libraries 

subprograms, 11-6 
OBJECT-COMPUTER paragraph, 3-4 
Object-time system 

tape handling, F-l 
OCCURS clause, 4-10, 4-40 
OMITTED option 

LABEL RECORD clause, 4-20 
ON OVERFLOW condition 

CALL statement, 5-26 

ENTER statement, 5-37 
ON OVERFLOW phrase 

STRING statement, 5-96 

UNSTRING statement, 5-111 
OPEN option 

USE statement, 5-114 
OPEN statement, 5-60 

Report Writer, 10-17 

simultaneous update, 5-63, 9-4 
Operands 

relation condition, 5-8 
Operators 

arithmetic, 5-6 
Optimization 

program, 13-1 
Optimizing 

available tools, 13-3 

documentation, 13-5 

getting started, 13-3 

methods, 13-4 

performance evaluation, 13-5 

procedures, 13-4 

programs, 13-3 
Optimizing programs 

tools available, 13-6 
Optimizing tool 

COBDDT, 13-6 
Option 

AFTER, 5-117 

ANY VERB 

simultaneous update, 9-10 

BEFORE, 5-117 

CHARACTERS, 4-15 

CHECKPOINT OUTPUT, 3-18 

CORRESPONDING, 5-18, 5-23, 5-57, 
5-99 

DATE, 5-20 

DAY, 5-20 

DEFERRED OUTPUT, 3-18 
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Option (Cont.) 

DELETE, 5-28 

DEPENDING, 4-40 

DEPENDING ON, 5-46 

END OF UNIT, 3-37 

FOR REMOVAL, 5-28 

FROM, 5-20, 5-72, 5-80, 5-119 

GIVING, 5-23, 5-56, 5-87, 5-98 

I-O, 5-62 

INDEXED, 4-41 

INPUT, 5-114 

INPUT-OUTPUT, 5-62, 5-114 

INTO, 5-71 

LEFT, 4-37, 4-62 

literal, 5-91 

NEXT PAGE, 4-84, 4-85 

NO REWIND, 5-28, 5-61 

OMITTED, 4-20 

OPEN, 5-114 

OUTPUT, 5-114 

PLUS, 4-83, 4-85 

POSITION, 3-38 

PROCEED TO, 5-24 

RECORD, 3-38 

REEL, 5-28 

RERUN, 5-61 

REVERSED, 5-64 

RIGHT, 4-37, 4-62.1 

ROUNDED, 5-17, 5-23, 5-32, 5-36, 
5-59, 5-99 

RUN, 5-91 

SIZE ERROR, 5-17, 5-23, 5-32, 
5-36, 5-59, 5-99 

SORT, 3-38 

SORT-MERGE, 3-38 

STANDARD, 4-20 

TIME, 5-20 

TO, 5-23 

UNIT, 5-28 

UNTIL FREED 

simultaneous update, 9-10 

UPON, 4-88 

USING, 5-87 

VARYING, 5-8 3 
OPTIONAL 

key word, 3-14 
Optional 

input file, 5-61 
Optional words 

reserved, 1-6 
Organization 

file, 8-23 
ORGANIZATION clause, 3-17 

RMS indexed files, 1-1 
OUTPUT option 

USE statement, 5-114 
OUTPUT PROCEDURE phrase 

MERGE statement, 5-56 
Overflow 

STRING statement, 5-96 

UNSTRING statement, 5-111 
OVERHEAD entry 

COBDDT 



OVERHEAD entry 
COBDDT (Cont.) 

optimizing, 13-8 
OVERLAY 

COBDDT command, 7-35 
Overlay structure 

example, 11-9 
Overlays, 11-8 

CANCEL statement, 11-13 

defining, 11-9 

example of overlay structure, 

11-9 
examples, 11-14, 11-16, 11-17, 
11-18, 11-19, 11-20, 11-21, 
11-22, 11-23, 11-24, 11-25, 
11-26, 11-27, 11-28 
handler subroutine, 11-14 
LINK related switches, 11-10 
LINK switch /SPACE, 11-11 
overlayable COBOL programs, 

11-8 
rules, 11-9 
tree structure, 11-9 
when to use, 11-8 

Packing 

ignoring errors, 7-13 

indexed-sequential file, 7-12 
Packing ISAM file 

switch arguments, 7-13 
PAGE FOOTING entry 

TYPE clause, 4-88.2 
PAGE HEADING entry 

TYPE clause, 4-88.1 
PAGE LIMIT clause, 4-76 

FIRST DETAIL clause, 4-76 

FOOTING clause, 4-76 

HEADING clause, 4-76 

LAST DETAIL clause, 4-76 

Report Writer, 10-12 
PAGE-COUNTER 

INITIATE statement, 5-49 

RD entry, 4-72 

Report Writer, 10-13 
Paragraph 

DATE-COMPILED, 2-2 

FILE-CONTROL, 3-10 

I-O-CONTROL, 3-37 

OBJECT-COMPUTER, 3-4 

PROGRAM-ID, 2-1 

SOURCE-COMPUTER, 3-3 

SPECIAL-NAMES, 3-6 
Paragraphs 

PROCEDURE DIVISION, 5-4 
Parentheses 

conditional expression 
combinations, 5-15 

formation rules, 5-6 
Parentheses separator, 1-12 
PARITY clause, 3-25 
PERFORM statement, 5-65 

COBOL-68/74 differences, A-7 

coding conventions, 13-13 
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PERFORM statement (Cont.) 

cycle logic examples, 5-67 
Phrase 

ALL, 5-52, 5-105, 5-110 

ALSO 

SPECIAL-NAMES, 3-8 

CHARACTERS, 5-51 

COLLATING SEQUENCE, 5-88 

DELIMITED BY, 5-93, 5-109 

DELIMITED BY SIZE, 5-94 

DELIMITER IN, 5-106 

END-OF-PAGE, 5-118 

EOP, 5-118 

EVERY RECORD, 5-42 

simultaneous update, 9-12 

EXTEND, 5-63 

FIRST, 5-52 

FOOTING, 4-22 

INPUT PROCEDURE, 5-56 

INTO, 5-79 

INVALID KEY, 5-89, 5-119 

KEY, 5-75 

LEADING, 4-61, 5-52 

LINES AT BOTTOM, 4-22 

LINES AT TOP, 4-22 

NEXT, 5-70 

NEXT SENTENCE, 5-47 

NOT RETAINED, 5-42 

ON OVERFLOW, 5-96, 5-111 

OUTPUT PROCEDURE, 5-56 

POINTER, 5-94, 5-107 

REPLACING, 5-51 

SEPARATE CHARACTER, 4-60 

TALLYING, 5-51, 5-107 

THROUGH 

SPECIAL-NAMES, 3-8 

TIMES, 4-40 

TRAILING, 4-61 

UNAVAILABLE, 5-75 

UNTIL FREED, 5-75 

WITH SEQUENCE CHECK, 5-56 
Physical device-names, 3-14 
PICTURE clause, 4-42 

editing methods, 4-50 

symbols, 4-42 
PICTURE string 

character chart, 4-55 

elementary item, 4-45 
PLUS option 

LINE NUMBER clause, 4-83 

NEXT GROUP clause, 4-85 
Pointer item 

STRING statement, 5-94 

UNSTRING statement, 5-106 
POINTER phrase 

STRING statement, 5-94 

UNSTRING statement, 5-107 
POSITION option 

I-O-CONTROL paragraph, 3-38 
POSITIONING clause 

WRITE statement, 5-118 
POSITIVE test 

sign condition, 5-11 



Print group 

CONTROL, 4-76 
PRINTING clause 

SUPPRESS statement, 5-100 
PROCEDURE DIVISION 

execution, 5-4 

paragraphs, 5-4 

sections, 5-4 

segmentation, 5-4 

sentences, 5-2 

statements, 5-2 

structure, 1-4 

syntactic format, 5-2 

verb formats, 5-19 
PROCEDURE DIVISION statement 

inter-program communication, 
11-5 
Procedure verb 

statement categories, 5-3 
Procedure-name 

debugging, H-4 
PROCEED 

COBDDT command, 7-35 
PROCEED TO option 

ALTER statement, 5-24 
Program 

LINK, 6-4 

TRANSLATE, 6-2 
Program access to files 

competing, 9-8 
Program behavior 

obtaining histograms, 7-39 
PROGRAM COLLATING SEQUENCE clause, 

3-5 
Program documentation, 13-5 
Program example 

RMS indexed file, 1-8 
Program format 

comment lines, 1-14 

continuation area, 1-14 

source, 1-13 

card-type, 1-14 
identification area, 1-15 

terminal-type, 1-15 
Program optimization 

how to proceed, 13-3 

methods and procedures, 13-4 
Program segments, 11-1 

examples, 11-2 

nonresident segments, 11-2 

section-names, 11-1 

segment numbers, 11-1 
PROGRAM-ID paragraph, 2-1 
Programming considerations 

simultaneous update, 9-3 
Programs 

loading COBOL-74, 6-4 

running COBOL-74, 6-4 

utility, 7-1 
Project-programmer number 

translation, E-l 
Pseudo-text delimiter separator, 
1-12 
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Qualification 

DATA DIVISION, 4-9 

definition, 4-9 
Quotation mark separator, 1-12 
QUOTE 

figurative constant, 1-7 
QUOTES 

figurative constant, 1-7 

Random access 

relative files, 8-25 
Random files 

FREE statement, 5-42 
RD 

report file 

Report Writer, 10-8 
RD entry 

LINE-COUNTER, 4-72 

PAGE-COUNTER, 4-72 

report description, 4-72 
READ statement, 5-69 
Reading tape labels 

ISAM program, 7-14 
Record 

definition, 1-3 
RECORD CONTAINS clause, 4-24 

SD file-name clause, 4-26 
Record description 

level numbers, 4-3 
Record descriptions 

FILE SECTION, 4-2 
RECORD KEY clause, 3-20 
RECORD option 

I-0-CONTROL paragraph, 3-38 
RECORDING MODE clause, 3-23 
Recording modes 

ASCII, 8-1 

BINARY, 8-3 

EBCDIC, 8-2 

SIXBIT, 8-2 
RECORDS clause 

BLOCK CONTAINS, 4-15 
REDEFINES clause, 4-56 
REEL option 

CLOSE statement, 5-28 
Relation condition 

abbreviated combined, 5-16 

conditional expression, 5-7 

format, 5-8 

nonnumeric items 
comparison, 5-8 

numeric items 
comparison, 5-8 

operands, 5-8 

operators, 5-8 
Relative files, 8-24 

accessing 

simultaneous update, 9-16 

COBOL-68/74 differences, A-6 

dynamic access, 8-25 

random access, 8-25 

RETAIN statement, 5-77 

sequential access, 8-24 



RELATIVE KEY clause, 3-22 
Relative subscripting/indexing, 

4-11 
RELEASE statement, 5-72 
REMAINDER clause 

DIVIDE statement, 5-36 
RENAMES clause 

level-66, 4-58 
Renaming 

indexed-sequential file, 7-16 
REPLACE 

LIBARY command, 7-26 
REPLACING phrase 

COPY statement, 1-21 

INSPECT statement, 5-51 
REPORT clause, 4-25 
Report codes 

Report Writer, 10-5 
Report description entry 

RD, 4-72 
REPORT FOOTING entry 

TYPE clause, 4-88.2 
Report group 

FOOTING, 4-76 
Report group description entry, 

4-78 
Report groups, 4-7 

detail, 4-7 
REPORT HEADING entry 

TYPE clause, 4-88.1 
REPORT SECTION 

DATA DIVISION, 4-6 
Report Section 

definition, 4-1 
Report section format, 4-7 
Report Writer 

CLOSE statement, 10-19 

CODE clause, 10-8 

COLUMN clause, 10-10 
missing, 10-12 

CONTROL clause, 10-8 

DECLARATIVES SECTION, 10-16 

GENERATE statement, 10-18 

INITIATE statement, 10-17 

LINE clause, 10-10 

NEXT GROUP clause, 10-9 

OPEN statement, 10-17 

PAGE LIMIT clause, 10-12 

PAGE-COUNTER, 10-13 

report codes, 10-5 

report example, 10-2 

report file assignment, 10-6 

report file FD, 10-7 

report file RD, 10-8 

report file selection, 10-6 

REPORT SECTION, 10-8 

REPORTS ARE clause, 10-7 

sample input data file, 10-4 

SOURCE clause, 10-10 

SUM clause, 10-11 

TERMINATE statement, 10-19 

TYPE statement, 10-9 
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Report Writer (Cont.) 

USE BEFORE REPORTING statement, 
10-16 
REPORTS ARE clause 

Report Writer, 10-7 
RERUN 

utility program, 7-1 
RERUN clause, 3-37 
RERUN option 

OPEN statement, 5-61 
RERUN program 

examples, 7-45 

operating, 7-44 

restarting programs, 7-44 
RESERVE clause, 3-16 
Reserved word 

CONSOLE, 3-6 
Reserved words, 1-5 

COBOL-74, B-l 

connectives, 1-6 

figurative constants, 1-6 

key words, 1-6 

optional words, 1-6 

special registers, 1-8 

special-character words, 1-9 
RESET clause, 4-86 
RESTART 

LIBARY command, 7-27 
Restarting programs 

RERUN utility, 7-44 
Restrictions 

RMS indexed files, 1-7 
RETAIN statement, 5-73 

indexed-sequential files, 5-78 

relative files, 5-77 

simultaneous update, 9-8 
RETURN statement, 5-79 
REVERSED option 

OPEN statement, 5-64 
REWRITE statement, 5-80 
RIGHT option 

JUSTIFIED clause, 4-37 

SYNCHRONIZED clause, 4-62.1 
RMS clause, 3-18 
RMS errors 

RMS indexed files, 1-4 
RMS indexed files 

ALTERNATE RECORD KEY clause, 
1-1 

defining, 1-1 

deleting, 1-4 

FD entry, 1-2 

handling errors, 1-4 

opening, 1-3 

ORGANIZATION clause, 1-1 

processing, 1-3 

program example, 1-8 

reading, 1-3 

restrictions, 1-7 

SELECT clause, 1-2 

START statement, 1-3 

using, 1-6 

WITH DUPLICATES clause, 1-1 



RMS indexed files (Cont.) 
writing, 1-4 

RMS program 

with RMS indexed files, 1-6 

ROUNDED option 

ADD statement, 5-23 
COMPUTE statement, 5-32 
DIVIDE statement, 5-36 
MULTIPLY statement, 5-59 
PROCEDURE DIVISION, 5-17 
SUBTRACT statement, 5-99 

RUN option 

STOP statement, 5-91 

S format 

transportable tape handling, 
F-9 
SAME AREA clause, 3-38 
SCHEMA SECTION 

DATA DIVISION, 4-4 
Schema Section 

definition, 4-1 
SD file-name clause, 4-26 
SEARCH statement, 5-82 
Searches 

subprograms, 11-6 
Section 

CONFIGURATION, 3-2 

INPUT-OUTPUT, 3-9 
SECTION statement 

program segments, 11-1 
SECTION word, 5-5 
Section-name 

priority numbers, 5-4 
Section-names 

program segments, 11-1 
Sections 

PROCEDURE DIVISION, 5-4 
Segment numbers 

program segments, 11-1 
SEGMENT-LIMIT clause, 3-5 
SEGMENT-LIMIT IS statement 

program segments, 11-1 
Segmentation 

COBOL-68/74 differences, A-7 

PROCEDURE DIVISION, 5-4 
Segments types, 5-5 
SELECT clause, 3-13 

RMS indexed files, 1-2 
SELECT statement, 3-14 
Selection 

report file 

Report Writer, 10-6 
Semicolon separator, 1-12 
Sentences 

PROCEDURE DIVISION, 5-2 
SEPARATE CHARACTER phrase 

SIGN clause, 4-60 
Separators 

COBOL, 1-12 

comma, 1-12 

horizontal tab, 1-12 

parentheses, 1-12 
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Separators (Cont.) 

pseudo-text delimiter 
quotation marks, 1-12 
semicolon, 1-12 
space, 1-12 

Sequence of operations, 

Sequences 
collating 

character, C-l 

Sequential access 

relative files, 8-24 

Sequential file 

access strategies, 9- 

Sequential files, 8-23 
accessing 

simultaneous update 
basic reading, 9-12 
basic updating, 9-13 
basic writing, 9-13 
FREE statement, 5-42 

SET statement, 5-85 

SHOW SYMBOLS 

COBDDT command, 7-36 

SIGN clause, 4-60 

Sign condition 

conditional expressio 
format, 5-11 
NEGATIVE test, 5-11 
POSITIVE text, 5-11 
ZERO test, 5-11 

Simultaneous update, 9- 
accessing indexed-seq 

files, 9-18 
accessing relative fi 
buried update, 9-2 
deadly embrace, 9-3 
example, 9-7 
methods, 9-1 
OPEN statement, 5-63 
program access 

competing, 9-8 
programming considera 
projecting resources, 
reading sequential fi 
sequential files 

accessing, 9-12 
updating sequential f 
writing sequential fi 

SINGLE REEL storage med 

Single-precision 
fixed-point, 5-18 

Single-reel volume set 
tape handling, F-7 

SIXBIT 

fixed-length 

file format, 8-8.1 
recording mode, 3-23, 
transportable tape ha 

F-ll 
variable- length 
file format, 8-10 

SIXBIT conversion 
from ASCII, C-3 



, 1-12 



5-7 



13 



, 9-12 



n, 5-11 



uential 
les, 9-16 



tions, 9-3 

9-4 
les, 9-12 



iles, 9-13 
les, 9-13 
ia, 5-29 



8-2 

ndling, 



SIXBIT data type, 13-10 
SIXBIT mixed-mode binary 

file format, 8-21 
SIZE ERROR option 

ADD statement, 5-23 

COMPUTE statement, 5-32 

DIVIDE statement, 5-36 

MULTIPLY statement, 5-59 

PROCEDURE DIVISION, 5-17 

SUBTRACT statement, 5-99 
SORT option 

I-O-CONTROL paragraph, 3-38 
SORT statement, 5-86 

collating sequence, 5-88 
SORT-MERGE option 

I-0-CONTROL paragraph, 3-38 
SOURCE clause, 4-87 

Report Writer, 10-10 
Source items 

STRING statement, 5-92 

UNSTRING statement, 5-104 
Source library 

file format, 7-22 

maintenance 
LIBARY, 7-22 
Source library facility, 1-19 
SOURCE-COMPUTER paragraph, 3-3 
SPACE 

figurative constant, 1-7 
Space 

LOW-VALUES equivalence, 3-8 
Space restrictions 

DATA DIVISION, 13-12 
Space separator, 1-12 
SPACES 

figurative constant, 1-7 
Special register 

DATE, 1-9 

DAY, 1-8 

DEBUG-ITEM, 5-115, H-l 

LINAGE-COUNTER, 1-9 

TIME, 1-9 
Special registers 

reserved, 1-8 
Special-character words 

reserved, 1-9 
SPECIAL-NAMES paragraph, 3-6 
Standard label 

magtapes, 4-21 
STANDARD option 

LABEL RECORD clause, 4-20 
STANDARD-ASCII 

recording mode, 3-24 

transportable tapes, F-9 
STANDARD-ASCII tapes 

tape handling, F-6 
START statement, 5-89 

RMS indexed files, 1-3 
Starting 

COBDDT program, 7-29 
Statement 

ACCEPT, 5-20 

ADD, 5-22 



Index-17 



October 1985 



Statement (Cont.) 

ALTER, 5-24 

CALL, 5-25 

differences, A-7 

CANCEL, 5-27 

differences, A-7 

CLOSE, 5-28 

COMPUTE, 5-32 

COPY 

differences, A-8 

DELETE, 5-33 

DISPLAY, 5-34 

DIVIDE, 5-35 

ENTER, 5-37 

ENTRY, 5-38, 11-5 

EXIT, 5-39 

EXIT PROGRAM, 5-40 

FREE, 5-41, 9-11 

GENERATE, 5-44 

GO TO, 5-46 

IF, 5-47 

INITIATE, 5-49 

INSPECT, 5-50 

MERGE, 5-55 

MOVE, 5-57 

MULTIPLY, 5-59 

OPEN, 5-60, 9-4 

PERFORM, 5-65 

differences, A-7 

PROCEDURE DIVISION, 11-5 

READ, 5-69 

RELEASE, 5-72 

RETAIN, 5-73, 9-8 

RETURN, 5-79 

REWRITE, 5-80 

SEARCH, 5-82 

SECTION, 11-1 

SEGMENT-LIMIT IS, 11-1 

SELECT, 3-13, 3-14 

SET, 5-85 

SORT, 5-86 

START, 5-89, 1-3 

STOP, 5-91 

STRING, 5-92 

SUBTRACT, 5-98 

SUPPRESS, 5-100 

TERMINATE, 5-101 

TRACE, 5-102 

TRACE OFF, 5-102 

TRACE ON, 5-102 

UNSTRING, 5-104 

USE, 5-113 

USE FOR DEBUGGING, 5-115, H-3 

WRITE, 5-116 
Statement categories 

procedure verb, 5-3 
Statement ordering 

coding conventions, 13-15 
Statements 

PROCEDURE DIVISION, 5-2 
STEP 

COBDDT command, 7-36 



STOP 

COBDDT command, 7-37 
STOP RUN statement 

inter-program communication, 
11-6 
STOP statement, 5-91 
Storage media 

MULTI-REEL, 5-29 

NON-REEL, 5-28 

SINGLE REEL, 5-29 
STRING statement, 5-92 

delimiter items, 5-93 

destination item, 5-94 

execution, 5-94 

overflow, 5-96 

pointer item, 5-94 

source items, 5-92 
Structure 

COBOL program, 1-3 
Subprogram structure 

loading, 11-6 
Subprograms, 11-3 

CALL statement, 11-4 

ENTRY statement, 11-3 

examples, 11-7 

inter-program communication, 
11-4 

LINKAGE SECTION, 11-3 

loading subprogram structure, 
11-6 

non-COBOL subprogram, 11-3 

object libraries, 11-6 

searches, 11-6 

USING clause, 11-3 
Subscript usage 

coding conventions, 13-12.1 
Subscripting 

DATA DIVISION, 4-10 

relative/direct, 4-11 
Subscripting forms, 4-11 
Subscripts 

efficient data types, 13-11 

multiple, 4-11 
SUBTRACT statement, 5-98 
SUM clause, 4-88 

Report Writer, 10-11 

UPON option, 4-88 
SUPPRESS statement, 5-100 
Switch 

/A 

file packing, 7-13 
Switches 

compiler, 6-3 

LIBARY program, 7-24 
Symbology 

braces, 1-2 

brackets, 1-2 

ellipsis, 1-2 

underline, 1-2 
Symbols 

COBOL, 1-1 

PICTURE clause, 4-42 
SYNCHRONIZED clause, 4-62 
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System 

object-time 

tape handling, F-l 
System labels 

tape handling, F-l 
System-labeled tapes 

tape handling, F-8 
System-owned tape drive 

tape handling, F-7 



Tables 

conversion 

collating sequences, C-l 

TALLYING phrase 

INSPECT statement, 5-51 
UNSTRING statement, 5-107 

Tape handling 

ANSI labeled tapes, F-8 
ASCII for TOPS-20, F-10 
ASCII transportable tapes, F-9 
available tape drive, F-7 
binary transportable tapes, 

F-ll 
COBOL labels, F-l 
converting tape labels, F-6 
defaults, F-4 
definitions, F-l 
directions, F-l 
EBCDIC for TOPS-10, F-10 
EBCDIC for TOPS-20, F-10 
EBCDIC labels, F-ll 
finding instructions, F-2 
label type, F-l 
labeled tapes, F-8 
MOUNT command, F-7 
multi-reel volume set, F-7 
multi-volume tapes, F-5 
object-time system, F-l 
restrictions, F-4 
single-reel volume set, F-7 
SIXBIT transportable tapes, 

F-ll 
STANDARD-ASCII 

transportable tapes, F-9 
STANDARD-ASCII tapes, F-6 
symbols used in text, F-4 
system labels, F-l 
system-labeled tapes, F-8 
system-owned tape drive, F-7 
tape with no labels, F-7 
TOPS-10 restrictions, F-6 
TOPS-20 defaults, F-5 
transportable tapes, F-9 
undefined formatted tape, F-10 
unlabeled tapes 

using, F-6 
use considerations, F-4 
volume, F-2 
volume number, F-2 
volume set, F-2 

Tape with no labels 
tape handling, F-7 



Tapes 

transportable 
formats, F-9 
Term 

block, 1-3 

item, 1-3 

record, 1-3 

words, 1-5 
Terminal-type 

source program format, 1-15 
Terminal-type format 

with line numbers, 1-16 

without line numbers, 1-17 
TERMINATE statement, 5-101 

Report Writer, 10-19 
Terms 

COBOL, 1-1, 1-3 
TIME 

special register, 1-9 
TIME option 

ACCEPT statement, 5-20 
TIMES phrase 

OCCURS clause, 4-40 
TO option 

ADD statement, 5-23 
TOPS-10 defaults 

tape handling, F-6 
TOPS-20 

defining logical names, E-l 
TOPS-20 restrictions 

tape handling, F-5 
TRACE 

COBDDT command, 7-37 
TRACE statement, 5-102 
TRAILING phrase 

SIGN clause, 4-61 
TRANSL command 

directory translation, E-l 
TRANSLATE program, 6-2 
Transportable tapes 

ASCII, F-10 

binary, F-ll 

EBCDIC, F-10 

EBCDIC tape handling, F-10 

SIXBIT, F-ll 

tape handling, F-9 
Tree structure 

overlays, 11-9 
TYPE clause, 4-88.1 

CONTROL FOOTING entry, 4-88.2 

CONTROL HEADING entry, 4-88.1 

DETAIL entry, 4-88.1 

FINAL entry, 4-88.2 

PAGE FOOTING entry, 4-88.2 

PAGE HEADING entry, 4-88.1 

REPORT FOOTING entry, 4-88.2 

REPORT HEADING entry, 4-88.1 
TYPE statement 

Report Writer, 10-9 

U format 

transportable tape handling, 
F-10 



Index-19 



October 1985 



UNAVAILABLE clause, 5-63 
UNAVAILABLE phrase 

RETAIN statement, 5-75 
Underline 

symbology, 1-2 
Underscore 

HIGH-VALUES equivalence, 3-8 
UNIT option 

CLOSE statement, 5-28 
Unlabeled system tapes 

tape handling, F-6 
Unlabeled tapes 

converting to labeled tapes, 
F-6 
UNPROTECT 

COBDDT command, 7-38 
UNSTRING statement, 5-104 

count storage items, 5-106 

delimiter items, 5-105 

delimiter storage items, 5-106 

destination counter, 5-107 

destination items, 5-104 

execution, 5-107 

overflow, 5-111 

pointer item, 5-106 

source items, 5-104 
UNTIL clause 

PERFORM statement, 5-67 
UNTIL FREED option 

RETAIN statement, 9-10 
UNTIL FREED phrase 

RETAIN statement, 5-75 
UP BY clause 

SET statement, 5-85 
Update 

simultaneous, 9-1 
UPON option 

SUM clause, 4-88 
Usage 

explicit, 4-10 

implicit, 4-10 
USAGE clause, 4-64 

COMPUTATIONAL format, 4-65 

C0MPUTATI0NAL-1 format, 4-65 

C0MPUTATI0NAL-3 format, 4-66 

DATABASE-KEY format, 4-69 

DISPLAY format, 4-67 

DISPLAY-6 format, 4-67 

DISPLAY-7 format, 4-67 

DISPLAY-9 format, 4-68 

INDEX format, 4-68 
USE BEFORE REPORTING 

statement, 10-16 
USE FOR DEBUGGING statement, 
5-115 

debug module, H-3 
USE statement, 5-113 

DECLARATIVES, 5-113 

Report Writer, 10-16 
User-defined words, 1-9 
USER-NUMBER clause, 4-27 
Using 

FIPS flagger, G-2 



Using (Cont.) 

indexed-sequential file, 7-20 
USING clause 

CALL statement, 5-25 

ENTER statement, 12-1 

ENTRY statement, 5-38 

inter-program communication, 
11-5 

PROCEDURE DIVISION, 5-1, 5-2 
USING option 

SORT statement, 5-87 
Using RERUN program 

examples, 7-45 
Utility 

LIBARY program, 7-22 
Utility program 

COBDDT, 7-1 

ISAM, 7-1 

LIBARY, 7-1 

RERUN, 7-1 
Utility programs 

COBOL-74, 7-1 



recording mode, 3-24 
VALUE clause, 4-70 
VALUE OF IDENTIFICATION clause, 

4-27 
Variable-length ASCII 

file format, 8-6 
Variable-length EBCDIC 

file format, 8-14 
Variable-length SIXBIT 

file format, 8-10 
VARYING option 

SEARCH statement, 5-83 
Verb formats 

PROCEDURE DIVISION statements, 
5-19 
Volume 

tape handling, F-2 
Volume number 

tape handling, F-2 
Volume set 

multi-reel, F-7 

single-reel, F-7 

tape handling, F-2 

WHEN condition 

SEARCH statement, 5-83 
WHERE 

COBDDT command, 7-38 
WITH DEBUGGING MODE clause, 3-3 
WITH DUPLICATES clause 

RMS indexed files, 1-1 
WITH NO ADVANCING clause 

DISPLAY statement, 5-34 
WITH SEQUENCE CHECK phrase 

MERGE statement, 5-56 
Word 

character string, 1-5 

FILLER, 4-36 

FROM, 5-98 
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Word (Cont.) 

KEY, 5-55 

PRINTING, 5-100 

SECTION, 5-5 
Word integer, 1-11 
Words 

user-defined, 1-9 
WORKING-STORAGE SECTION 

DATA DIVISION, 4-5 
Working-Storage Section 

definition, 4-1 
WRITE statement, 5-116 



Writing tape labels 
ISAM program, 7-14 



ZERO 

figurative constant, 1-7 
ZERO test 

sign condition, 5-11 
ZEROES 

figurative constant, 1-7 
ZEROS 

figurative constant, 1-7 
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KEEP THIS UPDATE NOTICE IN YOUR MANUAL TO MAINTAIN AN UP-TO-DATE RECORD OF 

CHANGES. 



TYPE AND IDENTIFICATION OF DOCUMENTATION CHANGES 

Five types of changes are used to update documents contained in the TOPS-1 0/TOPS-20 software 
manuals. Change symbols and notations are used to specify where, when, and why alterations were 
made to each updated page. The five types of update changes and the manner in which each is 
identified are described in the following table. 



The following Symbols and/or Notations 

1. Change bar in outside margin; version number 
and change date printed at bottom of page. 

2. Change bar in outside margin; change date 
printed at bottom of page. 

3. Change date printed at the bottom of page. 



4. Bullet (•) in outside margin; version number 
and change date printed at bottom of page. 

5. Bullet (•) in outside margin; change date 
printed at bottom of page. 



Identify the Following Types of Update 

1 . Changes were required by a new version of 
the software being described. 

2. Changes were required to either clarify or 
correct the existing material. 

3. Changes were made for editorial purposes, 
but use of the software is not affected. 

4. Data was deleted to comply with a new 
version of the software being described. 

5. Data was deleted to either clarify or correct 
the existing material. 
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